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I. BACKGROUND AND PREVIOUS WORK 


A. INTRODUCTION 

With the proliferation of computers and the increasing costs involved in software 
development, testing has become a critical aspect of the software engineering process. 
Software testing usually requires more than half of the effort involved in producing 
working programs. Most programmers dislike testing. They have difficulty selecting data 
to detect faults in their programs. Fully automatic testing techniques help to find faults 
without forcing the programmers to select data. 

The ANSI/IEEE Standard defines a fault as an accidental condition that causes a 
functional unit to fail to perform its required function. An error is a discrepancy between a 
computed, observed, or measured value or condition, and the true, specified, or 
theoretically correct value or condition. A failure is the inability of a system or system 
component to perform a required function within specified limits. (ANSI/IEEE, 1983, 
pp.18-19) 

Techniques for-detecting software faults are divided into two categories: dynamic 
analysis and static analysis. These techniques help identify different classes of faults 
within programs. The principle dynamic analysis technique is program testing (Howden, 
1981, p. 210), which examines the behavior of a program during execution given certain 
sample test data. An example of this type of analysis is a test case analyzer that determines 
if all executable statements within a program are reached at least once. 

Static analysis examines the source code and structure of programs for faults. This 
analysis occurs during the requirements, design, or implementation phases of the software 


development process. Static analysis involves examination of information in documents 


created during these phases, but does not require actual execution of the program under 
development. It detects classes of faults that include uninitialized variables, undeclared 
variables, unreferenced variables, operand type mismatches, and conflicts between actual 
and formal parameters of modules. Static analysis techniques can detect different types of 
faults, but the use of these techniques may miss some important faults, specifically logical 
faults. There has been limited research examining the strengths and weaknesses of static 
analysis techniques. That research, however, has found several key limitations. 

One limitation using static analysis techniques 1s the inability to track the value of a 
variable as it changes. An example of this is an array index. Since the value of array 
indexes is usually dynamically calculated there is no way for static analysis to identify the 
specific index value (Beizer, 1990, p.156). This forces static analysis techniques to treat a 
reference to any array element as a reference to all array elements. Static analysis 
techniques that are performed manually can be limiting because of the amount of detail 
involved. Since humans have difficulty in handling large amounts of details, manual 
techniques become less effective as program size increases. 

Although static analysis techniques have limitations, their application may be 
beneficial under some conditions. Static analysis techniques may detect faults prior to 
execution of a program. If faults are detected earlier in the software development process, 
static analysis techniques may be more economical than other techniques. They may also 
be useful if the class of faults detected is not redundant to the faults detected by applying 
similar techniques. Static analysis may be used if it can be shown that the overall testing 
effort can be reduced. If testers are able to eliminate certain classes of faults early by using 
Static analysis techniques or narrow the focus of the dynamic testing efforts then static 
analysis may be beneficial. Incorporating more effective static analysis techniques has been 


a continuing trend in language processor design. 


Improving static analysis methods is the main purpose of this research. One way to 
improve static analysis is to add more application-based information into the analysis to 
help detect faults. Many programs in engineering and science deal with calculations 
involving physical units and units can be associated with variables in other application 
fields as well. Adding the capability to check units by static analysis requires defining units 
that are to be used, knowing the relationship among units, and defining the association of 
units with program variables. A static analysis technique that checks for consistency of 
units is different from other techniques that are built in to compilers such as type checking. 
With type checking, variables can be converted to other types by a syntactic means, but the 
unit associated with a variable is determined by known relationships or it is algebraically 
derived. Information associated with units may be derived from the application area and 
the program specification; the rest would need to be added by the analyst. 

A computer program such as a language processor is a logical choice for this type of 
analysis because the technique involves repeated application of simple rules to easily- 
extracted program information. Manual checking of this sort is expensive, tedious and 
error-prone. A computer program would provide more consistent results with less cost. 
This check would not determine full program correctness, but rather, determine consistency 


in the program's data transformations that involve physical units. 


B. RELATED RESEARCH 

There has been some research in units-consistency checking that was concerned with 
implementations of units-consistency techniques. Karr did a study detailing how a 
programming language could keep track of physical units. He addressed the issues of what 
the set of elementary units would include and what would the relationship among those 
units be. He proposed that the user be allowed to reserve identifiers and declare 


relationships at their convenience. Once the user declared the units and their relationships, 


a language compiler could then construct vectors representing relationships and apply linear 
algebra methods to check for unit consistency (Karr, 1978, pp. 385-391). 

The research conducted by Bhargava focused on the dimensional aspects of units and 
their use in enhancing the reliability of mathematical modeling. He treated units as 
dimensions that represent non-numeric symbols. His method encoded units of 
measurement as prime numbers and manipulated the resulting expression numerically. 
Using the unique factorization theorem he developed a method to simple dimensions, 1.e., 
units, and verify dimensional equivalency. The primary focus of this research was its 
application in mathematical modeling systems, specifically the model validation and model 
solution phases (Bhargava, 1991, pp. 1-3). 

Previous research outlined different methods for implementing units-consistency 
checking tools. Exploring dimensional simplification and verification of dimensional 
consistency of expressions in modeling formulation and model validation was the 
motivation for studies done by Bhargava (Bhargava, 1991, p. 3). Karr's research 
examined some language design considerations and compiler implementation issues (Karr, 
1978, p. 386). Issues concerned with testing, such as increasing the reliability of 
programs, were left for future research. This thesis examines the question of reliability; it 
offers a first look at the relative effectiveness of a units-consistency analysis technique with 


other testing techniques. 


C. RESEARCH QUESTIONS 

This research involves the extension of a programming language with a construct 
for inclusion of physical units to allow for automatic detection of unit inconsistencies. The 
primary focus is a comparative analysis of this technique with other testing techniques 
applied in previous research. This information may affect the planning phase of software 


development and the selection of testing techniques. 


One question addressed by this research deals with redundancy. If application of a 
units-consistency technique detects new faults, not previously revealed by other testing 
techniques, then it may be of value to testers. Applying non-redundant techniques helps to 
increase the reliability of a piece of software. 

Another question addressed involves the cost of applying a units-consistency 
technique. Any software developer is concerned with costs. The costs associated with 
detection and correction of faults increase as each phase in the software development cycle 
is completed. If a technique can be applied in the earlier phases of software development, 
the costs associated with fault correction may be less. 

A more informed software-development manager is able to make wiser decisions. 
This thesis provides information obtained from research that allows for better planning of 
the testing effort in the development process. It addresses the issue of whether units- 


consistency analysis meets criteria for effective use. 


D. OVERVIEW 

The first step in conducting this research was developing a tool to analyze a program 
for units-consistency. Chapter II gives a description of that tool. Chapter III is an analysis 
of the results of applying the tool, including a comparison of its performance with other 
testing techniques in detecting faults. The analysis in the chapter attempts to answer the 
research questions outlined in the previous section. The concluding chapter gives a 
summary of the significant results, suggestions to practitioners in the use of this technique 


and directions for future research. 


II. RESEARCH DESCRIPTION 


A. INTRODUCTION 
The programming for this research project required building a static-analysis tool 
that checks consistency of physical units for each data transformation in a Pascal program 
(1.e., each assignment statement and parameter passing). The rationale behind checking 
only data transformations 1s that this is where values within programs frequently become 
contaminated. 
A desire for flexibility and ease of testing led to structuring the tool into two steps. 
The first step is a program that parses the source code and generates an input file for the 
second step. The second step actually verifies the physical unit consistencies within a 
program by comparing the input file with a file that contains a list of valid relationships of 
variables and their physical units. This chapter describes the two programs that form the 


tool. 


B. THE PARSER 

The parser, called Pparse, takes as its input a Pascal program that uses an extended 
version of the basic Pascal grammar (Jenson and Wirth, 1974). The code for this parser is 
given in Appendix A. Two software-development tools, LEX and YACC (Mason and 
Brown, 1991), were used to develop Pparse. It is a basic Pascal parser with embedded C 
code that performs the appropriate semantic actions. Pparse follows a modified grammar 
that allows unit declarations following identifiers. Specialized comments, indicated by an 
ampersand immediately following the comment delimiter, form the unit declarations. The 
programmer can insert physical unit declarations after any identifier used in a program. 


This allows the user to associate units with constant declarations, type declarations, and 


variable declarations at the beginning of the program, but has the added flexibility of 
placing unit declarations in data transformations. 

The information generated by Pparse becomes the input file for the physical units 
checker. It provides an expression for each data transformation in the Pascal program 
being parsed. The curly brackets, "{}", delimit the beginning and end of each expression 
respectively. A line number appears after the open bracket that tells the user approximately 
where the data transformation occurs in the source code. The expression contains Pascal 
variables, which indicate array subscripts by the square brackets, “[]’’, record references 
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by a period “.”, and pointer references by a carrot “4”. Any combination of these 
aggregate data types can form complex variable references. For example, the reference 
"New{){].BatDim.LinWid" 1s a variable that points to a two dimensional array containing 
the “BatDim" record with the subelement “LidWid”. The parser assigns units at the lowest 
level of reference, therefore whatever unit belongs to the subelement “LinWid” 1s the unit 
associated to this reference in a program. Because all elements of an array were assumed to 
have the same physical units, index expressions did not disambiguate units within an 
expression and were left out. Pparse describes other program references such as literal 
values using the notation “@@”. A reference to an literal string, character = number, 
appears as ““@@unsigned_lit” and a reference to a set appears “@@set”’. 

Since many data transformations in programs involve assignment statements the 
expression format for the parser result file resembles a Pascal assignment statement. 
Pparse supports all Pascal operators. The parser lists the operator followed by a space 
and the number of arguments associated with it. The convention used for representing the 
arguments themselves lists the identifier (variable) followed by a space and the unit 


associated with it. 


C. THE PHYSICAL UNITS CHECKER 

This program called unitcheck, requires two ASCII input files, the parser results 
and a list of valid data transformations. Appendix B gives the code for unitcheck. A 
sample page from an output file produced by unitcheck is shown in Appendix D. The 
functional specification is the source of the valid data transformations. It is a database, of a 
sort, that identifies valid ways in which units associated with variables can be combined to 
form other units. This second input file is referred to as the rulebase for the testing tool. 
A sample page for the rulebase is shown in Appendix C. The diagram in Figure 1 gives a 
pictorial representation of the program. 

The first thing unitcheck does is load the rulebase by calling the load _list 
function. load_list in turn uses a function called read_exp to load a parse tree for each 
individual data transformation in the rulebase file. As it builds each tree it returns a 
pointer to that tree and load_list adds the tree into a linked list. load_list returns the 
head of the list when it reaches the end of the rulebase file. This list represents valid data 
transformations derived from the functional specification. unitcheck then opens the 
parser result file and calls read_exp to load a parse tree for each data transformation. 
Each time read_exp loads a tree, unitcheck calls the match function to evaluate the 
validity of the units in the tree. 

The match function has as its first parameter the head of the linked list created from 
load_list and its second parameter is the parse tree returned from the second call to 
read_exp. The match function immediately calls three functions that perform quick 
checks on the parse tree. unitcheck uses these functions to validate parse trees that do not 
require comparisons with the entire rulebase. The first function, fast_comparel 
validates data transformations involving assignments of a variable to another variable with 


the identical units or an assignment of an unitless literal to a variable. fast_compare2 


traverses the parse tree and eliminates it if there are no units of measurement associated 
with any of its identifiers. The last non-rulebase check, fast_compare3, validates a 
parse tree if all of the identifiers within it have identical physical units and all the operators 
are unit-preserving. It accomplishes this by calling a recursive function, traverse that 
traverses the parse tree and based on each operator encountered, decides if the units are 
consistent. If none of the quick checks validate the expression then the match function 


calls compare_exp to validate the expression against the rulebase. 


X\utree 


Pp 
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tree 
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Figure 1: Structure Chart for Unitcheck 


The compare_exp, also a recursive function, takes as its parameters a parse tree 
from the rulebase and the parse tree from the parser result file. It traverses both parse 
trees and verifies that the nodes in each of the trees are identical by comparing the identifier 
name and unit name at each node. If compare_exp finds two identical parse trees, it 
signals the match routine that in turn prints a statement to the standard output denoting the 
units in the expression are valid. If compare_exp traverses the two parse trees and finds 
the structures are different or there exists any inconsistent units, it notifies the match 
routine. If the match routine continues through the entire rulebase and does not find two 
identical expressions, then it prints a statement denoting the expression from the parser 


result file has invalid units. 


D. SUMMARY 

Using Pparse and unitcheck, a programmer can evaluate the variable data 
transformations within a Pascal program. The rulebase for this evaluation may derive from 
the rules of algebra, the program specification or hand-validated expressions from the 
program source code. To measure the utility of this type of tool in practice, it was applied 
to a set of eight versions of a Pascal program. The next chapter discusses that application 


and its results. 
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Ill. RESULTS 


A. INTRODUCTION 

In the past there has been a lack of empircal research dealing with dimensional 
analysis and units consistency. Furthermore, research that has been done was not of a 
comparitive nature. This experiment involved building a static units-consistency analysis 
tool to detect faults within programs and comparing the results with faults previously 
detected by other testing techniques. Section B describes the program versions used in the 
experiment. Section C describes the experiment procedure. The results of this research are 


provided and summarized in Section D. 


B. DESCRIPTION OF EXPERIMENTAL SUBJECT 

This research used a set of eight program versions written from a single specification 
for a combat simulation problem. An industrial specification obtained from TRW 
(Dobieski, 1979) provided the base for the specification of a combat simulation called 
CONFLICT (Shimeall, 1990). The specification is structured as a series of 
transformations to convert input data to an internal state vector, use that state vector to 
model combat, and transform the state vector to report combat results. It was the 
implementation of that series of transformations that the unit-consistency analysis tool 
evaluated in this experiment. 

Upper-division computer science students performed all design and implementation 
activities on the program versions of the CONFLICT Specification. At the time these 
Students were in a senior-level class on advanced software engineering methods. Two 
students worked as a team to write each version. Each of the teams worked separately of 


each other with minimal sharing of information between teams. The program versions 
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were developed to the point where unit testing would normally begin. Table 4.1 provides 


information about the individual program versions. 


TABLE 4.1: CONFLICT VERSION SOURCE PROFILE FROM 
(Shimeall and Leveson, 1991, p. 178) 


Version 
a Module ource Lin Line 
l ae 7503 | 2414 
4 56 Se SV) 1540 
3 4] 1480 1201 
4 57 3663 2003 
5 28 1834 1544 
6 72 3065 2206 
7 FS 2734 1978 
8 57 1896 1331 


A disjoint set of students detected faults in the programs using five different testing 
techniques: code reading by stepwise abstraction, static data-flow analysis, run-time 
assertions inserted by the development participants, multi-version voting, and functional 
testing with follow-on structural testing. An administrator acted as final arbiter and decided 
which reports were faults and which were false alarms (Shimeall and Leveson, 1991, p. 
175). Table 4.2 in section D gives a total of these previously detected faults. 

There are two factors that make the program versions of the CONFLICT 
Specification suitable to study unit analysis. First, the assignment of physical units of 
measurements to the variables in the CONFLICT Specification was straightforward, as the 
variables model the physical world. Second, and most important, previous research on the 
program versions provided the basis for comparison with other fault detection techniques, 


specifically those studied in the previous experiment. 
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C. EXPERIMENT PROCEDURE 

The purpose of this experiment was to develop a testing tool that detects faults 
resulting from unit inconsistencies within programs and compare the results with a 
previous study that disovered faults by different testing procedures. The experiment was 
conducted in a Series of steps, the first being the assignment of physical units to the 
program versions. The next step was building up the rulebase. Once the rulebase was 
built the unit-checking tool was executed on each program version. A unit clash occurred 
when the axioms for algebraic manipulation of variables were followed and the physical 
unit in the left-hand side of an equation did not match the units derived from the right-hand 
side of the equation. The last step was the analysis of the output to determine if each unit 
clash was a fault. At each step, reviews were done that validated experiment procedures 
and data. The remainder of this section details each of the steps taken in the experiment. 

The first step in the experiment was assigning physical units to global variables 
within the CONFLICT Specification. The decision of what kind of unit to assign to each 
variable was made based on the the specification itself. The system of measurement for the 
unit assignments was arbitrarily decided to be metric. Once units were assigned to all 
global variables, each program version was edited assigning units to appropriate 
parameters, function-return declarations and local variables. Units were assigned to 
parameters in the procedure or function declaration by adding them in the comment form 
discussed in Chapter H. Function-return declarations were assigned units by appending the 
function call with the appropriate unit, again in the comment form described in Chapter II. 
Since some functions performed services of a general nature, such as returning a minimum 
value, it was not possible to assign units to them. If a local variable was not associated 


with a global variable within the CONFLICT Specification, it was not assigned a unit. 
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The unitcheck program was then used to check this program version with the 
unitless-expression filtering mechnism disabled. Disabling this mechanism helped ensure 
that all variables were properly assigned units. These initial results were then reviewed for 
one more check to determine if units had been accidently left out or if any incorrect units 
had been added. After the review, any needed modifications were made to the unit 
associations in the source code of the program version. 

Another problem that was addressed during the above process was how to build the 
rulebase. Since the output of the unitcheck procedure was a list of data transformations 
for the program version, a logical technique to build the rulebase was to evaluate each of 
the transformations in the output and determine if it should be added to the rulebase. The 
criteria for adding rules were: is it a valid rule and is it a rule that 1s likely to occur 1n other 
versions. The CONFLICT Specification provided the functional requirements that 
described variables and established the relationships between these variables. This was the 
basis for the development of the rulebase. If the rule was in the CONFLICT Specification 
it was then checked to ensure-that algebraic manipulations followed appropriate 
composition and cancellation rules. If a rule was not general enough to be likely to appear 
in other program versions, it was left out of the rulebase. The rules that met the criteria 
were added to the rulebase against which the other program versions would be checked. 

Once a rulebase was established, a fully-filtered unit check was done. The result was 
again evaluated manually, determining if there were any unit clashes. As unit clashes were 
detected they were noted for further examination. 

When all the program versions were checked, the unit clashes were evaluated to 
ascertain if each unit clash could cause the program to fail. If a valid condition produced a 
program failure from the clash then it was classified as a fault, otherwise it was left as a 


unit clash. The reason for each clash was noted, for example, a clash that occured because 
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of the implementation of a particular version was classified as a coding unit clash. A final 
review of each unit clash was done comparing them with previously detected faults that 
were listed in the study by Shimeall and Leveson (Shimeall and Leveson, 1991, p 178). 
This last review helped establish the validity of the research results. 


D. ANALYSIS OF RESULTS 

Three general categories of questions guided the analysis of this data. The first 
category is did this testing technique reveal any faults that were not previously discovered 
by the other testing techniques. The second category is what are the strengths and 
weaknesses of the physical units checking tool. The final category is how can the tool be 
improved or better used. These questions are discussed in the next three sections. 

1. Faults Detected by the Tool 

Table 4.2 is a summation of research results after conducting the test for 
physical units consistency. The first two rows in Table 4.2 marked ‘Total 
Transformations’ and ‘Filtered Transformation’, reveal that a large number of data 
transformations were filtered out automatically. The parser generated the number of data 
transformations shown in the first row. The unitcheck program then filtered out many 
data transformations and reported the numbers in second row for further analysis. As 
these first two rows in Table 4.2 show, the unitcheck procedure filtered between 66 to 90 
percent of the initial data transformations. 

The row marked ‘Coding Unit Clashes’ in Table 4.2 shows that the unit clashes 
in the program versions of the CONFLICT Specification were usually the result of reuse of 
variables in a different context or module. Most of these clashes were not classified as 
faults within the program. However, there was one unit clash included that was found in 


each program version and classified as a fault. This clash is discussed in more detail later. 
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The next row marked ‘Specification Clashes’ revealed there were unit clashes 
that occurred because of inconsistencies within the CONFLICT Specification. These 
clashes were not a Surprise since the specification was not previously analyzed for physical 
units consistency. The row marked ‘Total Clashes’ is the sum of the previous two lines 
and gives us the figure for all unit clashes detected by our research including all unit clashes 
that could result in a fault . 

TABLE 4.2: RESULTS OF PHYSICAL UNITS-CONSISTENCY 
ANALYSIS 
] 2 4 6 7 8 


Total Transformations 943 544 614 «(853 £501 722 #665 ~=# 654 
Filtered Transformations 96 128 64 131 148 246 222 #2167 


Coding Unit Clashes 2 3 $2 3 g 3 2. 3 
Specification Clashes 0 0 0 0 ] 0 l 0 
Total Clash 2 2 4 3 3 


Previous Known Faults 26 30 46 36 40 IM) 3] 45 
Previous Known Faults 


Revealed by Clashes ] 0 ] 0 0 0 l 0 
New Faults Revealed 
lash ] 0 ] ] sd ] 


The first question answered by this data deals with the consistency of this 
technique in detecting faults. The data shown in the rows marked “Previous Known Faults 
Revealed by Clashes’ and ‘New Faults Revealed by Clashes’ in Table 4.2 show the 
consistent detection of faults in each of the program versions. The class of faults detected 
was quite narrow, relating to only one aspect of the specification. Further analysis revealed 
that this fault class did indeed result from use of analagous variables and units in each 
program version. It involved the numeric precision of a calculation specifically where the 
sum of n copies of term may not be equal to the product of multiplying that same term by 


n. This inequality results from the rounding mechanisms used in digital machines. An 
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inconsistent detection technique, multi-version voting, detected these faults in only three of 
the eight program versions. 

With this in mind, the next question is what will this technique consistently not 
reveal about faults within the program versions. In many cases its just as important to 
know which kinds of faults are not revealed by using a tool. This gives testers an idea 
what techniques should be used in combinations so that deficiencies of one technique are 
compensated for by using another technique for fault detection. This tool reported only 
unit clashes occuring within data transformations. The row marked, ‘Previously Known 
Faults’ provides the results from the previous testing research that gives a total of 276 
faults that were previously revealed. Further analysis in this area found that 210 out of 
those 276 involved no data transformations and hence would not be detected by the tool. 
Out of the 66 left, unitcheck filtered out 52 faults due to data transformations that did not 
involve a change of units. The filtering procedures were described in Chapter II and 
involved transformations that contain unitless variables, transformations where an unsigned 
literal is added to or subtracted from a variable, or transformations that contained identical 
units. Of the 14 remaining known faults, 11 coincidentally involved legal unit 
conversions. 

The three remaining data transformations that were reported by unitcheck fell 
into the category of previously detected faults. The tool detected these faults in three 
different program versions of the CONFLICT Specification. These figures are shown in 
the row marked ‘Previously Known Faults Revealed by Clashes’. All of the previously 
detected faults were revealed by multi-version voting. The procedure used in the previous 
experiment for this testing method compared the results of three program versions, looking 
for disagreement. This result naturally leads to the question of what gains there could be if 


this testing tool were used in conjunction with other types of testing methods. The rows 
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marked ‘Previously Known Faults Revealed by Clashes’ and “New Faults Revealed by 
Clash’ show that the units-consistency checking tool detected the fault consistently in all 
program versions. The previous research testing technique of multi-version voting detected 
these faults in only three program versions. These results show that this tool can be used 
with other testing techniques and detect faults that are not redundant. Although the units- 
consistency analysis revealed only a very restricted class of faults, it did in five out of eight 
program versions detect a fault that had not been detected by other testing techniques that 
used over 10,000 executions. 
2. Strengths and Weaknesses of the Tool 

A primary question in the minds of software development managers 1s the cost 
involved with a testing tool. They are concerned with the cost of the tool itself, whether its 
developed in house or purchased separately, and the cost of training testers to use the tool 
effectively. An advantage of this tool is that it could be developed in house for imperative 
languages by developing a parser or modifiying an existing one. The primary cost here is 
in time, but even there the cost is minimum. A experienced tester could implement a units- 
consistency checker in less than two months of full time work. As far as the cost of 
administering the test to the individual programs this would depend on the length of the 
program versions. For a program size of around 2000 lines of code it would take 
approximately three to five days of full-time work if the programmer had to actually analyze 
the requirements document for unit assignment, assign units in program versions, run the 
test, and validate results. This time could also be reduced if units analysis were introduced 
in the requirements and design phases because the tester would not have to perform the 
steps of analyzing the requirements documents for unit assignment and assigning units in 


the programs themselves. This use of the technique is described in greater detail below. 
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Another question that concerns program developers is are there aspects of this 
testing technique that will determine whether it is useful or not to a particular problem area? 
Scientific and engineering applications have long been able to use the technique of units 
analysis for faster and more accurate progam development. It could also be very useful in 
command and control applications where physical objects are manipulated. And lastly, 
integrating units into business applications may prove to be very beneficial. There is no 
limit for use of this technique in business applications because as long as units are assigned 
consistently and the axioms of algebraic manipulation of variables are applied, a units- 
consistency checking technique is applicable. 

One last question that might concern a software development manager is how 
likely are the testers to be mislead by using this technique? This testing technique detects 
only a very narrow class of faults, specifically those that occur due to units that are 
inconsistent within data transformations. Testers should be aware that when this technique 
is applied, faults are revealed and can be eliminated, but this is a very restrictive set of 
faults and their removal does not certify program correctness. 

These questions address some issues that software development managers 
might be concerned with, but as managers they are also looking for ways to we utilize 
any tools and resources available to them. Questions that address these issues are 
discussed in the following section. 

3. Improvement and Other Uses of the Tool 

The question of how to better utilize resources is always of importance to any 
manager regardless of what they are managing. The question with a technique such as 
units-consistency checking is how can it be used to increase the reliability of software and 
be more cost effective? The row in Table 4.2 marked ‘Specifiation Clashes’ revealed 


physical units clashes within the CONFLICT Specification itself. This data indicates that a 
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technique of this sort could be beneficial when used to detect unit inconsistencies within 
requirement and design documents. Reliability of software has become increasingly more 
important and CASE tools that check consistencies in the earlier phases of development are 
becoming more widespread. The capability for checking of units-consistency could be 
added to these CASE tools. Howden outlines a formal system that checks for 
consistencies within requirements and design documents in his work (Howden, 1981, pp. 
103-105). The advantage of this is costs associated with detecting faults early on in the 
development cycle are much less than when faults are detected later. 

Another improvement to the units-consistency checking technique lies in the 
interface analysis area. Interface analysis involves checking formal and actual parameters 
for consistency. This technique has generally been done by a language processor. The 
Current version of the parser for units-consistency checking tool generated a data 
transformation for each parameter being passed. It then checked the units-consistency 
between formal and actual parameters. There were problems however because in some 
cases comparisons were made of variables when they were of different unit types. An 
example in the program versions of this experiment occured with a function that compared 
two values and returned the variable with the minimum value. The tool detected no fault 
when two variables with two different unit types were compared. The occurence of this 
problem could be avoided by making improvements to the parser that enabled it to better 
check parameters. All that is required for this type of interface analysis is a symbol table 
and rules for judging consistency. Since a symbol table is inherent to a parser, the only 


addition would be the rules for checking parameter consistency. 


E. CONCLUSION 
This chapter described the methodology used in conducting this research, as well as 


the results of the experiment. A question concerning the use of units analysis technique is 
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where is time likely to be lost. The process of using the tool in the experiment was iterative 
in nature, meaning that the same steps were followed for each program version that was 
tested. Some of these steps, such as assigning units within the requirements specification 
and program versions, could be eliminated if units-consistency techniques are applied 
earlier in the software development process. However, the process itself has to be 
somewhat iterative to avoid mistakes on the part of the tester. Unit inconsistencies that are 
reported at the various steps within the process should be compared with previous results 
to prevent errors and validate results. 

Some care should be taken when using the results of this experiment. Multiple 
examinations by different individuals were conducted to check the results, but the 
experiments was conducted by students, not professional programmers and testers. Just 
one application was examined in this research and extensibility to other applications has yet 
to be determined. Statistical significance of results was not addressed due to the lack of 
population information about the number of faults occuring in programs or the class of 
faults that appear most often in programs. In general there is a lack of historical data and 
applicable theory in the study of faults that occur in programs and therefore statistical 
significance was not able to be addressed. 

The next chapter gives a summary of the significant results of this research. It offers 
conclusions and recommendations to practioners concerning the results of this research and 


finally discusses directions for future work. 
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IV. CONCLUSION 


A. INTRODUCTION 

The primary purpose of this research was to develop and apply a tool for units- 
consistency checking and compare the results of using this tecnique with the performance 
of other testing techniques in detecting faults in computer programs. This chapter 
summarizes the significant results of this research in Section B. Section C offers 
recommendations to practioners in applying techniques of this sort. Section D concludes 


by giving suggestions for future research. 


B. RESEARCH SUMMARY 

The most significant result of this research is that it offers the first look at the relative 
effectiveness of a units-consistency checking technique, comparing it with other testing 
techniques. Although this technique deals with a very narrow class of fault detection, the 
results did reveal that it was able to detect new faults that had not been detected by applying 
other testing techniques and over 10,000 program executions. This technique was able to 
consistently detect this class of faults. This fact is significant because a units-consistency 
checking technique used in conjunction with other static analysis techniques may reduce the 
issues to be explored during the dynamic analysis testing phase. 

The last notable outcome of the study of this technique is support for its application 
early in the software development cycle. If faults identified via unit inconsistencies are 
detected during the requirements and design phases of development, it is less costly to 


repair them than if they are detected in later phases of development. 
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C. RECOMMENDATIONS 

The results of this research can help practioners in planning for software testing. 
Chapter I discussed the conditions when it may be beneficial to apply static analysis 
techniques. The first of those conditions was if faults were detected prior to execution of a 
program. The results show consistent detection of a narrow class of faults. The second 
condition was if the technique could detect faults early in the software development 
process. The unit clashes found in the CONFLICT Specification show that if a units- 
consistency technique is applied during the requirements and design phases of software 
development faults can be detected early. Adding units of measurements into the 
documentation during those phases of development would also help organize information 
about variables to be used in the implementation and testing phases and increase readability. 
The third condition was if the class of faults detected was not redundant. The results show 
that it is not redundant effort to apply this with other techniques. Eliminating the class of 
faults that are associated with units inconsistencies addresses the fourth condition, reducing 
the overall testing effort. Of course if the technique for units-consistencies is incorporated 
into CASE tools that can be used during the requirements and design phases, checking for 
units-consistency will become much easier. Based on this data, there is no reason to 
reject use of units-consistency analysis. 

This technique should be applied in conjunction with other testing techniques simply 
because of the narrow class of faults that it 1s capable of detecting. The experience 
described in the previous chapter suggests areas where caution is needed in applying this 
technique, particularly in determination of which reports are faults and which are false 


alarms. 
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D. FUTURE WORK 

There are several avenues of research that can be examined in the future as follow-up 
studies to this work. The first question that could be answered is can the idea of 
consistency be extended to include more general relationships than physical units of 
measurement, thus broadening the class of faults that can be detected. The use of units in 
this research allows for distinction between values. At a qualitative level there are values 
associated with program variables that need to be treated differently, e.g., a null pointer as 
opposed to all other pointer values. Detection of these values for variables could be 
included and would broaden the class of faults detected. 

Another potential area of research might involve checking for units-consistency 
beyond a single data transformation. Conditional statements, blocks of assignment 
Statements, and consistency between modules are all areas where there is room for units- 
consistency checking. Checking for units-consistency in these cases becomes increasingly 
more difficult because the analysis is taken away from a specific location and has to address 
under which paths and conditions would units remain consistent. One possible benefit in 
exploring this approach further is that information can be obtained about declarations and 
references of variables. 

The potential for using a unit analysis technique in conjunction with CASE tools has 
been mentioned in several sections of this work. This use could prove to be the most cost 
effective in software development because inconsistencies, therefore potential faults, are 
eliminated early in the development process. 

Further work can be done to examine how information involving units can be 
maintained in very large software projects. Questions that should be addressed include 
how should the data be divided, what kind of database structure is most advantageous for 


this type of information and would lend itself to updates made during the course of 
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development. It is critical for very large software projects that information concerning units 
and variables be accessable to multiple users. Additionally, these users may have little 
contact with each other over the course of development. Research in this area could help 
solve problems involving accessability as well as issues involving accuracy and timeliness 
of data inherent in large software projects. 

Finally, further comparisons can be done to statistically establish the limitations and 
gains of using a units-consistency analysis technique. The analysis of faults that occur in 
software is a relatively new field of study and data dealing with this class of fault detection 
needs to be explored more throroughly. This research has established some initial 


observations, but many more questions are left unanswered. 
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APPENDIX A 


PASCAL PARSER 
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Yacc specification for Pascal 


Original specification taken from: 


yacc grammar for Pascal based on ISO standard 


Compiler Design and Construction: Tools and Techniques 


Arthur B. Pyster 


Van Nostrand Reinhold Company 


Copyright 1988 


TSBMeG= 442-27 50-6 
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ep oles 

WN cI Sp ar 

*t nee, 

* GIS Ee | Zoeile, 


Declaration of all token types 
<t_int> TOK AMPERSAND 


TOK_AND 
TOK , ARRAY 

TOK ASSIGN 

TOK BEGIN 

TOK CASE 

TOK _CLOSEBRACKET 
TOK_CLOSEPAREN 
TOK COLON 
TOK_COMMA 

TOK _COMMENT1 START 
TOK _COMMENT1 END 
TOK _COMMENT2 START 
TOK COMMENT2 END 
TOK_CONST 

TOK DIV 

TOK DIVIDE 

TOK DO 

TOK DOTDOT 

TOK _DOWNTO 

TOK ELSE 

TOK END 

TOK EQUAL 

TOK FILE 

TOK FOR 


ppelso tee 

/ 
/* Data structure for tokens */ 
union { 

nH OKE 

char 

SiEsucr enode 

char 

} 
[RKKKKKKKKKK 
stoken 
stoken ste. 1 Mile 
stoken Se, shigie 
stoken IE USER 
token Cline 
étoken S18 oh ge 
%token Se Ug EE 
stoken SE ane 
$token teint = 
stoken <n 
stoken Se glee: 
stoken Se Salone. 
stoken Se ghee: 
‘token Se, abides 
token SG ger 
‘token See bo 
token <Ciane- 
‘token at nee 
‘token <1 nt 
token SE, ahjalie 
‘token “IE au gie=: 
token pie ghee 
stoken lela OG 
‘token Ose Ugee: 
étoken <a te= 
%token <b 1nee 


TOK FORWARD 
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stoken 
token 
$token 
$token 
$token 
token 
$token 
$token 
$token 
$token 
$token 
token 
token 
token 
$token 
token 
$token 
token 
$token 
$token 
$token 
$token 
$token 
token 
$token 
$token 
token 
$token 
$token 
$token 
$token 
$token 
$token 
token 
$token 
$token 
token 
$token 
token 
token 
token 
$token 
token 
token 
token 


/* Standard 


$token 
$token 
$token 
token 


/* Standard 


token 
token 
$token 
$token 


<p TOK FUNCTION 
<t_int> TOK_GOTO 

Qe alge: TOK _GREATERTHAN 
Se Buses TOK_GREATERTHANOREQUALTO 
S18 a ahee- TOK_IDENTIFIER 
<fe aie TOK_IF 

<< ine= TOK_IN 

<a mte TOK LABEL 

<e bghe>: TOK LESSTHAN 
Seige: TOK LESSTHANOREQUALTO 
5 Ph hee TOK MINUS 
oe TOK_MOD 

SET glee TOK_MULT 

Se alge. TOK NEWLINE 

SE Ue TOK_NIL 

Sie TOK_NOT 

<t_int> TOK_NOTEQUAL 
<td ot TOK_OF 

Sebo: TOK _OPENBRACKET 
16 ab gher: TOK_OPENPAREN 
Se yaiee TOK_OR 

<E) Ince TOK_PACKED 

See te TOK PERIOD 

<n ate TOK PLUS 

S16 Saige TOK POINTER 
Sed ies TOK_PROCEDURE 
tei nite TOK PROGRAM 
<i TOK_ RECORD 

SIG totes TOK_REPEAT 

18 sal ghee TOK_SEMICOLON 
—Eane> TOK_SET 

Se SLICES: TOK STRING 
<t_int> TOK_THEN 
Seale TOK_TO 

<Gaeintes: TOKE YEE 

Se alleges TOK_UNIT1 
<Eaenic TOK _UNIT2 

<E nite TOK_UNKNOWN 
<eeeemite TOK UNSIGNED INTEGER 
<t_int> TOK _UNSIGNED_REAL 
<t_int> TOK_UNTIL 

SSS ahs TOK_VAR 

“Cae TOK WHILE 
tite TOK WHITESPACE 
<tr ee TOK WITH 

Om Pre-Derined Identities ~/ 
<Eaamiee TOK_BOOLEAN 

<t ince TOK REAL 
<Eane= TOK INTEGER 

<E ame TOK_CHAR 
Procedures and Functions */ 
“Eee TOK_ABS 

<Eeene- TOK_ARCTAN 

<C Ene TOK_ARGC 

<t ne TOK_ARGV 
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stoken Se aie TOK CARD 
stoken <t_int> TOK_CHR 
stoken << TOK CLOCK 
%token Sie aor TOK COS 
token <Eiiee TOK DATE 
stoken eau gle TOK DISPOSE 
token <Eoa ne TOK_EOF 
stoken <Es Ine TOK EOLN 
token Se aligiees TOK_EXP 
token “Een TOK EXPO 
stoken <7 eniee, TORP PF EUsH 
stoken Se) ie TOK_GET 
token Ege TOK HALT 
token sie elon TOK LINELIMIT 
Stoken <t 2G TOK_LN 
Stoken <t ints TOK_MESSAGE 
stoken SE oie TOK NEW 
stoken eb. TOK NULL 
stoken Se lhe TOK_ODD 
stoken Se unc TOK_ORD 
stoken SS ale = TOK PACK 
stoken eb nee. TOK _PAGE 
‘token SEune TOK_PRED 
$token <(Eaee ee TORSEUT 
token SIE bee TOK RANDOM 
token Enc TOK READ 
token Seni TOK _READLN 
$token <tc 2 Mees TOK_ REMOVE 
stoken 5) Die TOK RESET 
Stoken SEG ec: TOK_REWRITE 
‘token <Eie> TOK ROUND 
token Serie TOK SEED 
‘token <tr TOK _SIN 
token <t_int> TOK SOR 
stoken <tc TOK SORT 
Stoken <Ceene TOK Sf EIMEy 
stoken Seem TOK SUCC 
$token <t Ine TOK _SYSCLOCK 
Stoken <teeme TOK TEXT 
$token “Ean TOK TIME 
stoken <2 ne TOK_TRUNC 
token Se aloes TOK UNDEFINED 
stoken <Eene TOK_UNPACK 
token <Eeene TOK WALLCLOCK 
*token <Cae TOK WRITE 
token SE > TOK WRITELN 


/* Precedence and Associativity among operators */ 
‘left TOK EQUAL TOK LESSTHAN TOK GREATERTHAN 
TOK __ LESSTHANOREQUALTO TOK _GREATERTHANOREQUALTO TOK_IN 
Sleft TOK_PLUS TOK | MINUS | TOK OR 

left TOK MULT TOK | Div Lbs TOK | DIV TOK AND TOK MOD 
sright TOK NOT 

‘left TOK PERIOD 

sright TOK ELSE TOK THEN 

right UNARY 


TOK NOTEQUAL 
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/* declare non-terminal types */ 


type 
type 
type 
type 
type 
type 
stype 
type 
type 
type 
stype 
stype 
stype 
stype 
stype 
type 
stype 
type 
stype 
type 
stype 
type 
stype 
type 
stype 
type 
type 
stype 


[RR KK RK RK RK KK ITOK RK OR OK OK OK IKK I kk 


bs Glee 
=<t [Str 
“(SEG 
—t SEr2 
Ee ee 
Sete 
<tUSEL 
<CacGh- 
<t Stra 
SIE SIC ge 
<t_node> 
<t_node> 
<t_node> 
<t_node> 
<t_node> 
<t_node> 
<t_node> 
=< MOE 
<t_node> 
<t_node> 
—— Node> 
—€) nodes 
<t_node> 
<t_node> 
<t_node> 
<t_node> 
<t_node> 
<t_node> 


Variable trailers 
Warmrable trailer fume parm list 
variable 

identifier 
relational op 

add op 

mult _op 

unary op 

unit deci 
FOmlalepannse elal Lex 
PaceOr 

signed factor 
expression 

Simple Expression 
Een 

iol Ahakche 

type 

packable type 
ordinal type 

field list 

Vere ter: Li St 

eomste field list 
tag 

cases 

cases trailer 

Opt formal parm list 
formal parms 

opt return 

MAC. Gpeci fication 


kkaKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KEK / 


%% 


program: 


TOK PROGRAM identifier unit _decl TOK _OPENPAREN 


{ 


TOS 


io list TOK _CLOSEPAREN TOK SEMICOLON 


= Q; 


for (i = O;i < MAX TABSIZE; i++) 
strcpy (symtab[TOS] [i] .nodename, EMPTY) ; 


/* initializes symbol table */ 


templ=(treenode *)CALLOC (1, sizeof (treenode) , "program") ; 
strcpy (templ->nodename, $2); 

strcpy (templ->unitname, $3); 

add_sym(templ, symtab[TOS]); 


for (1 — ar 


i < MAX TABSIZE; i++) 


strcpy (typetab[i] .nodename, EMPTY) ; 


} 


/*initializes type table */ 


block TOK PERIOD 


ibe) Jakeye 


aol isthe 


id list 


INS, 


identifier Uniemeeel 
{ 
templ=(treenode *)CALLOC (1, sizeof (treenode), 
“id listiae 
strcpy (temp1l->nodename, $1); 
strepy (templ->unitname, $2); 
$$ = templ; 
} 
| identifier unit_decl TOK_COMMA id list 
{ templ=(treenode *)CALLOC (1, sizeof (treenode), 
“id listZie 
strcpy (temp1->nodename, $1); 
strcepy (temp1->unitname, $2); 
temp1->rightchild = $4; 


$$ = templ1; 
block. -: 
opt labels optieonstants opereyecs 
opt_variables opt_pf heading dcls 
TOK BEGIN 
statements TOK_END 
Ovi labels 


TOK_LABEL integer list TOK SEMICOLON 
| 


integer list 
integer 
| integer TOK COMMA integer list TOK SEMICOLON 
integer : 


TOK UNSIGNED INTEGER 


opt constants ;: 
TOK_CONST constant_dcls 
| 


GpemEyDeS : 


TOK TYPE 
{ 
for (deftop=0; deftop<300; deftoptt) 
deferred[deftop]=NULL; 
deftop=-1; 
} 
GyPpendels 
for (;deftop>=0; deftop--) { 
templ = 
type lookup (deterred (dette =]-lerleias 
>nodename) ; 


if (templ != NULL) { 
deferred[deftop]—->leftchild = temp1; 
deferred{deftop]—->marked = 1; 
break link(temp1); 
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clear mark (temp1) ; 
deferred[deftop] ->marked = 0; 


opt_variables 


TOK VAR variable dcls 
| 


epee pt heading dels : 
opt_pf heading dcls procfunction_heading 
TOK SEMICOLON block directive TOK SEMICOLON {TOS--; } 
| 


block directive 


bleck 
| directive 
directive 
TOK_FORWARD 
statements 


statement 
| Statements TOK SEMICOLON statement 


eonstant dcls ; 
identifier TOK_EQUAL constant unit_decl TOK_SEMICOLON 


templ=(treenode *)CALLOC (1, sizeof (treenode), 
"eonstant dclsr);, 

strcpy (templ->nodename, $1); 

strcpy (templ->unitname, $4); 

add _sym(templ, symtab[TOS]); 

} 


| Cop-eant dels Wdentitier TOK EQUAL constant unit _decl 
TOK_SEMICOLON 
{ 
eect. = ( —E FF eenode 
eprenLLOCGl sizeor (Ereenode), constant dcls"); 
strcpy (templ->nodename, $2); 
strcpy (templ->unitname, $5); 
add _sym(templ, symtab[TOS]); 
} 


variable dcls 
id_list TOK_COLON type TOK SEMICOLON 
{ 
current = $1; 
while (current != NULL) 
{ 


next = current->rightchild; 
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current-—>rightchimid = NULL; 
add_sym(current, symtab[TOS]); 


if ( (stremp($3->nodename,"[{J]") != 0) && 
(strcmp ($3->nodename,".") != 0) && 
(strcomp ($3->nodename,"*") != 0) ) 
build_sym(current—>nodename, $3->leftchild); 
else 


build sym (current->nodename, $3) ; 
current = nexe,; 
} 


} 
variable dcls id list TOK COLON type TOK SEMICOLON 


{current = $2; 
while (current != NULL) 
{ 
next = current->rightchild; 
current-—>rightchild = NULL; 
add sym(current, symtab[TOS]); 


if ( (stremp($4->nodename,"[{J") != 0) && 
(strcmp ($4->nodename,".") != 0) && 
(stremp ($4->nodename,"*") != 0) ) 
build sym(current—>nodename, 54—>-lertchimray 
else 


build _sym(current->nodename, $4) ; 
Current = Mere, 
} 
} 
statement 
opt label unlabeled statement 


OpEnlabel 
TOK UNSIGNED INTEGER TOK COLON 
| 


unlabeled statemene. 
variable unit_decl TOK_ASSIGN expression 
{printf ("{ d\n", yylineno) ; 
if (stremp($2,EMPTY) != 0) 
print£ (":= Z\nts) ts wn, oe) 
else 
{ 
unit = lookup($1); /*lookup returns unit_name */ 
printf (":= 2\nts s\n" > Pua 
} 
rhs = print_node($4); 
if (rhs == FALSE) printf("something is wrong\n") ; 
print’ (nee 
} 
| identifier 
{ 
parmtop = 0; 
for (i = 0:1 < MAXSIZE; i++) 
cur parms[i] = NULL; 
/* initializes parameter table */ 
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temp_id = parm lookup($1); 
if (temp id != NULL) 

temp_id = temp_id->rightchild; 
} 
opt proc parameter list 
TOK BEGIN 
{ 
parmtop = 0; 
£Or (1 = O71 < MAXSIZE; i++) 

cur parms[i] = NULL; 

/* initializes parameter table */ 

} 
statements TOK_END 
TOK IF 
{ 
parmtop = 0; 
for (1 = 90;i < MAXSIZE; i++) 

cur_parms[i] = NULL; 

/* initializes parameter table */ 

} 


expression opt else 


TOK WHILE 

{ 

parmtop = 0; 

for (i = O;i < MAXSIZE; itt) 
cur parms[1) = NULL; 


/* initializes parameter table */ 
} 
expression TOK _DO statement 
TOK_CASE 
{ 
pannieop — TU; 
for (i = O;i < MAXSIZE; i++) 
cur parms[1i] = NULL; 
/* initializes parameter table */ 
} 
expression TOK OF case body TOK _END 
TOK REPEAT 
{ 
parmtop = 0; 
for (i = O0;i < MAXSIZE; i++) 
cur parms[i] = NULL; 
/* initializes parameter table */ 
} 
statements TOK UNTIL expression 
TOK FOR 
{ 
parmtop = 0; 
for (i = O;i < MAXSIZE; i++) 
cur parms[i] = NULL; 
/* initializes parameter table */ 
} 
identifier TOK ASSIGN expression 
direction 


{ 
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parmtop = 0; 
for (i = 0;i1 < MAXSIZE; i++) 
cur parms[{i] = NULL; 
/* initializes parameter table */ 

} 

expression TOK DO statement 
| TOK WiTH oro le seek DO stacemenc 
| TOK_GOTO TOK UNSIGNED INTEGER 
| 


opt_else : TOK THEN Statement le Srlsr seacement 
| TOK THEN statement 


Variable lise 
variable 
| variable list TOK_COMMA variable 


constant_list 
constant 
| constant list TOK COMMeycenst ant 


case_body 
constant_list TOK COLON 
Statement weasemenatler 


case trailer 
TOK_SEMICOLON 
| TOK_ SEMICOLON case_body 
| 
Gr receren 
TOK_DOWNTO 
| TOK_TO 


opt_proc_parameter list 
TOK_OPENPAREN 
expression opt formats list TOK CLOSEPAREN 
| 


expression opt formats list 
expression opt formats 


| expression opt formats list TOK_COMMA expression_opt formats 


expression opt formats 
expression opt_formats 
{ 
if (parmtop >= 0 && cur_parms[parmtop] != NULL) 
{ 
printf("{ d\n"; yylineae)- 


printf(":= 2\n%s %s\n",cur_parms[parmtop] ->nodename, 


cur parms[parmtop] ->unitname) ; 
rhs = print_node($1); 


Cur_parms[parmtop] = cur_parms[parmtop] ->rightchild; 


} 
} 


34 


Spe tormats : 
TOK COLON expression 
| TOK_COLON expression TOK COLON expression 


Sression list 
expression 


{ 
if (parmtop >= 0 && cur _parms[parmtop] != NULL) 


{ 
Prince) tayn’, yylineno) ; 
printf(":= 2\n%s %s\n",cur_parms[parmtop] ->nodename, 
cur parms[parmtop] ->unitname) ; 
Eis — Prine, node (sl); 
cur_parms[parmtop] = cur_parms[parmtop] ->rightchild; 


prin: (") wae 


} 
} 
expression list TOK COMMA expression 


{ 
if (parmtop >= 0 && cur _parms[parmtop] != NULL) 


{ 
PEINEEt tesa \n" ,yylineno) > 
printf (":= 2\n%s %@s\n",cur_ parms [parmtop] ->nodename, 
cur parms[parmtop] ->unitname) ; 
rhs = print node ($3); 
SliReParins |Palnecepi== club paris iparmtop] —>rightchild; 


PrimMiet (uy Vn), 


} 
expression : 
SxPlLecetenmrelatlonat Op Simple expression 

{ templ = ({treenode 
*) CALLOC (1, sizeof (treenode) ,"expression") ; 
strcpy (templ->nodename, $2); 
Eenpl—--lefuchnimld.— 9 Sil- 
temp1->rightchild = $3; 
$$ = templ; 
} 


| Simple expression {$5 = $1;} 


Slip le Cxpressiome, 
ECri eal, | 
| Simple expression add_op term 


templ = (treenode *)CALLOC(1,sizeof(treenode), "simple 


exp") : 
strcpy (templ->nodename, $2); 
temp1->leftchild = $1; 
templ=Srightchild = $3; 
S$ = templ; 
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term ; 


term mult op signedmtactor 
{ 
templ = (treenode *)CALLOC (1, sizeof (treenode) ,"term") ; 
strcepy (temp1->nodename, $2); 
templ—->leftchild = $1; 
temp1->rightchild = $3; 
$$ = templ1; 
} 
signed factor {$$ = $1;} 


Signed factors: 


unary op factor 


templ ~ (treenege 


*) CALLOC (1, sizeof (treenode), “signed factor”); 


unary op : 


strcepy (temp1->nodename, $1); 
temp1->leftchild = NULL; 
templ—>rightich21d.=)52- 

$$ = templ1; 


} 
factor {SS °— si 3 


unary op 

{ tmp=CALLOC ( (MAXSIZE),1,"unary opl"); 
strncpy (tmp, yytext, MAXSIZE) ; 

} 

TOK PLUS Sprec UNARY 

{$$ = tmp; } 

unary op 

{ tmp=CALLOC ( (MAXSIZE),1,"unary op2"); 
strncpy (tmp, yytext, MAXSIZE) ; 


TOK MINUS %prec UNARY 

{S$ = tmp; } 

unary op 

{ tmp=CALLOC ((MAXSIZE),1, "unary op3"); 
strncpy (tmp, yytext, MAXSIZE) ; 


TOK_NOT Sprec UNARY 
{95 = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1,"unary op4"); 
strncpy (tmp, yytext, MAXSIZE) ; 
} 


TOK PLUS Sprec UNARY 
{$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1,"unary op5"); 
strncpy (tmp, yytext, MAXSIZE) ; 


} 
TOK_MINUS sprec UNARY 
{$$ = tmp; } 
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{ tmp=CALLOC ( (MAXSIZE),1, “unary op6"); 
strnepy (tmp, yytext, MAXSIZE) ; 
} 
TOK_NOT Sprec UNARY 
{$$ = tmp; } 
Eaceor ;: 
identifier 
{ 
temp _id = parm _lookup($1); 
if (temp id != NULL) 
{ 
parmtopt++; 
cur parms[parmtop] = temp_id->rightchild; 
} 


VaELablete ramen fume panm lrSt unit dec} 
{ 
templ = (treenode *)CALLOC (1, sizeof (treenode), 
MPactor) jy 
strcpy (templ->nodename, $1) ; 
strcat (templ1->nodename, $3) ; 
strcpy (temp1->unitname, $4) ; 
if (strcmp (templ->unitname, EMPTY) == 0) 
{ 
unit = lookup(templ->nodename); /*lookup returns 
unit_name */ 
strcpy (temp1->unitname, unit) ; 


} 
S$ = templ; 


| TOK OPENPAREN expression TOK _CLOSEPAREN {$$ = $2;} 
| unsigned literal unit decl 
{ 
templ = (treenode *)CALLOC (1, sizeof (treenode),"factor2"); 
strcpy (temp1—>unitname, $2) ; 
strcpy (temp1->unitname, "@@unsigned 1it"); 
S$ = templ; 
} 
| TOK _OPENBRACKET opt_elipsis list TOK CLOSEBRACKET 
niet. Cec 
{ 


templ = (treenode *) CALLOC (1, sizeof (treenode), 
NTactors")/; 

strcpy (templ->unitname, $4) ; 

strcpy (temp1->unitname, "@@set") ; 

$$ = templ; 

} 


Pate oeci; 
TOK _UNIT1 identifier TOK COMMENT] END 
{SS = $2;} 
| TOK UNIT2 identifier TOK_COMMENT2 END 
{S$ = $2;} 
| {S$ = EMPTY; } 
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variable trailer fune pamngiices 
variable trailers {$$ = $1;} 
| TOK_OPENPAREN expression list TOK CLOSEPAREN 
{if (parmtop>0) parmtop--; $$ = EMPTY; } 


Opt ellipsis elise 
elipsismlirce 
| 
elipsicm rises. 
elipsis 
{ elipsis list TOK COMMA ellipsis 
elipsis : 
expression 
| expression TOK DOTDOT expression 
relationaliep= 
{ tmp=CALLOC ( (MAXSIZE),1,"relational opl1"); 
strncpy (tmp, yytext, MAXSIZE) ; 
} 
TOK_EQUAL {$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1,"relational op2"); 
strncpy (tmp, yytext, MAXSIZE) ; 


TOK GREATERTHAN {$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1,“relational op3"); 
strncpy (tmp, yytext, MAXSIZE) ; 


TOK_GREATERTHANOREQUALTO {$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1,"“relational op4"); 
strncpy (tmp, yytext, MAXSIZE) ; 


} 
TOK_IN {$$ = tmp; } 
{ tmp=CALLOC ( (MAXSIZE),1,"“relational op5"); 
strncpy (tmp, yytext, MAXSIZE) ; 
} 
TOK_LESSTHAN {$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1, "relational op6"); 
strncpy (tmp, yytext, MAXSIZE) ; 


TOK_LESSTHANOREQUALTO {$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1, "relational op7"); 
strncpy (tmp, yytext, MAXSIZE) ; 


TOK_NOTEQUAL {$$ = tmp; } 


aQcdEopm: 
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i emp—CALLOC ( (MAXSIZE),1,"add opl"); 
Stealcoy (emp, yy text, MAXSTZE) ; 


} 
TOK_MINUS {$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1,"“add op2") ; 
strncpy (tmp, yytext, MAXSIZE) ; 


} 
TOK OR {$$ = tmp;} 


{ tmp=CALLOC ( (MAXSIZE),1, "add op3"); 
strncpy (tmp, yytext, MAXSIZE) ; 


} 
TOK eLUS {ase = tmp; } 


Dole Op : 
{ tmp=CALLOC ( (MAXSIZE),1,"mult opl1"); 
SEENCpY (EMp, yy text, MAXSIZE)Y 


} 
TOK_AND {$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1, "mult op2"); 
strnecpy (tmp, yytext, MAXSIZE) ; 


} 
TOK DIV{$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1, "mult op3"); 
strncpy (tmp, yytext, MAXSIZE) ; 


} 
TOK_DIVIDE{$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE),1, “mult op4"); 
strncpy (tmp, yytext, MAXSIZE) ; 
} 
TOK MOD{$$ = tmp; } 


{ tmp=CALLOC ((MAXSIZE),1, “mult op5"); 
strncpy (tmp, yytext, MAXSIZE) ; 


} 
TOK MULT{S$S = tmp; } 
variable 
denis ficramaniable terailers 
{tmp = strcat (91, $2); 
o> = tmp; 
} 


Variable trailers : 
TOK_OPENBRACKET {parmtopt+; cur parms[parmtop] = NULL; } 
SP rece ane Se wuparmtopes, |} 
TOK_CLOSEBRACKET variable trailers 
{tmpl = CALLOC((strlen($6)+3),1,"var trailerl"); 
EUplo = SEnGpY (Enipl, til), 
tmpl = strcat (tmpl1,$6); 
free ($6); 
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22 = tmpl? 

} 

TOK PERIODS rcentitlcrss Vartable tramlers 

{tmpl = CALLOC((strlen($3)+strlen($2)+2),1,"var trailer2") ; 
tmpl = "sSercpy (tnpiy)- 


tmpl = strcat (tmpl, 52); 
tmpl = strcat (tmpl, $3); 
free ($2); 

free ($3); 

SS = tmpl1; 


} 
TOK_POINTER variable _ trailers 


{tmpl = CALLOC ((strilen(s2) 42) 1,"var Cede) 


tmpl = strepy (empl, 2) 
tmpl = strcat (tmpl, $2); 
free ($2); 
SS = tmpl1; 


} 
| {/* printf ("Default rule\n"); */ 
tmpl = CALLOC((1),1,"var trailer4"); 


*tmp1= "\0O';> ° 
$$ = tmpl; 
} 
constant 
TOK PLUS unsigned constant *sprec UNARY 
| TOK | MINUS unsigned constant Sprec UNARY 


| unsigned constant 


unsigned, ltgeral 
TOK_UNSIGNED_REAL 
| TORS UNSIGNED _ INTEGER 
| TOK STRING 
| TOK NIL 


unsigned constant 
identifier 
| unsigned literal 


e 
, 


Evie. 
TOK POINTER unit deci ident ate: 
{templ = (treenode *) CALLOC(1,sizeof (treenode), "type"); 
strcpy (temp1—->nodename, "*") ; 
templ—>leftchila = typerloommpt os), 
templ=>rightchitdy— NUL, 
if (templ->leftchild == NULL) { 
/* type not yet defined */ 
templ->leftchild = (treenode *) 

CALLOC (1, sizeof (treenode) , "deferred type"); 
strcpy (temp1—->leftchild->nodename, $3) ; 
deferred(++deftop] = templ1; 

} 
strcpy (templ->unitname, $2) ; 
S$ = templ; 
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} 
| ordinal type 


{S$ = $1;} 
| opt_packed packable type 
{$5 = $27} 


Peackable type : 
TOK ARRAY TOK OPENBRACKET ordinal type list 
TOK CLOSEBRACKET unit_decl TOK OF type 


{ 
templz= (treenode 


*) CALLOC (1, sizeof (treenode) ,"packable typel"); 
strcpy (templ1->nodename,"([]"); 
strcpy (temp1—->unitname, $5); 
templ->leftchild = $7; 
aeeincmout Li elertenildyis’ a named type, and 


substitute */ 
/* definition for type name */ 


if (strcmp (templ1->leftchild->nodename,"[]")!=0 && 
stremp (temp1->leftchild->nodename,"*")!=0 && 
strcmp (temp1->leftchild->nodename,".")!=0 && 


templ->leftchild->leftchild != NULL && 
temp1->leftchild->rightchild == NULL) 
templ1->leftchild= temp1l->leftchild->leftchild; 
$$ = templ; 


} 
TOK RECORD Umitecdeci freld list TOK END 


{ 
temptl= (treenode 


=) CALLOC (1, sizeof (treenode) , "packable type2"); 
strcpy (temp1->nodename,"."); 
strcpy (templ->unitname, $2); 
temp1->leftchild = $3; 
S$ = templ; 
} 
LO EES uirtt, CeCe OK OF “Ey pe 


temp1= (treenode 
*) CALLOC (1, sizeof (treenode) , “"packable type3"); 
strcpy (temp1->nodename, "*") ; 
strepy (templ->unitname, $2) ; 
templ->leftchild = $4; 
$$ = templ; 
} 
LOMO eleilnremaect TOK Or ordinal Eype 
{ 
temp1= (treenode 
*) CALLOC (1, sizeof (treenode),"“packable type4"); 
strcpy (templ1—->nodename, EMPTY) ; 
strcepy (templ->unitname, $2); 
$$ = templ1; 
} 


Sreimnia! type selse 
ordinal _ type 
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| ordinal type list TOK COMMA ordinal type 


ordinal type 
identifier unit decl 


{ 


templz= (t Freen ORG 
*) CALLOC (1, SizeoE (Creenode). crarnamearyeel”), 
if ($1. == EMPTY) strcpy (temple 


>nodename, "@@predefined") ; 
else strcpy (templ->nodename, $1) ; 
strcpy (templ->unitname, $2) ; 
temp2 = type_ lookup (temp1->nodename) ; 
if ($2 = EMPTY && temp2 != NULL) 
/* unitname is empty, so copy it from typetab */ 
{ 


strcpy (templ->unitname, temp2->unitname) ; 


} 
templ->leftchild = temp2; 
$$ = templ1; 
} 
TOK OPENPAREN id list TOK CLOSEPAREN unit_decl 
{ 
current = $2; 
while(current != NULL) 
{ 
strcpy (current->unitname, $4) ; 
next = current->rightchild; 
current->rightchild = NULL; 
add_sym(current, symtab[TOS] ); 
current = next; 
} 
tempil-= (t ree n Geer 
*) CALLOC (1, sizeof (treenode) , “ordinal type2"); 
strcpy (temp1->nodename, "@@enumerated") ; 
strcpy (temp1l->unitname, $4); 
So = tempi; 


constant TOK_DOTDOT constant unit _decl 
{ 
tempilz= (t reen ove 
*) CALLOC (1, sizeof (treenode) , "ordinal type3"); 

strcpy (templ->nodename, "@@subrange") ; 

strcpy (templ->unitname, $4); 

S$ = temp1; 
} 


field list : const_field list TOK_SEMICOLON var field_list 
{current = $1; 
if (current != NULL) { 
while (current->rightchild != NULL) 
current = current->rightchild; 
current->rightchild = $3; 
/* put var field list at end of const _field_list */ 
SS Sells 


/* return head (const field list) of new list */ 
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} 
else 2) = voy 
/*sconst seeld Jist is null, so return var field list as 
new list*/ 


} 
| COlStetelGmlist (55 = o1;} 
| const field list TOK SEMICOLON {$$ = $1;} 
| Vimeo lam rst (o> o— ol.) ; 
Meoretreld list: TOK CASE tag TOK_OF cases 
{templ = $2; 
if (templ != NULL) 
temp1l->rightchild = $4; 
else templ = $4; 
$$ = templ;} ; 
eonst field list: 
EdD st slOK TCOEON type 
{ 
current = $1; 
while (current '= NULL) 
{ 
current->leftchild = $3; 
/* find out if leftchild is a named type, and 
substitute */ 
/* definition for type name */ 
if (stremp(current->leftchild->nodename,"[]")!=0 && 
strcmp (current->leftchild->nodename, "*") !=0 && 
stremp (current->leftchild->nodename,".")!=0 && 
current->leftchild->leftchild != NULL && 
current->leftchild->rightchild == NULL) 
current->leftchild= current->leftchild->leftchild; 
if (current->unitname == EMPTY) 
Seeepvien. wens inane mmumpeurrent->leftchild- 
>unitname) ; 
current = current->rightchild; 


$$ = $1; 
} 
const field Mi SUeiOnesoEMT Cerenmrd JisteTOK COLON type 
{ 
current = $3; 
while (current != NULL) 
{ 
current->leftchild = $5; 
/* find out if leftchild is a named type, and 
substitute */ 
/* definition for type name */ 
if (strcmp (current->leftchild->nodename,"[]")!=0 && 
strcmp (current->leftchild->nodename, "*")!=0 && 
stremp (current->leftchild->nodename,".")!=0 && 
current->leftchild->leftchild '!= NULL && 
current->leftchild->rightchild == NULL) 
current->leftchild= current-—->leftchild->leftchild; 
if (current->unitname == EMPTY) 
Stecpy (CULrrent=-unitname, current->leftchild- 
>unitname) ; 
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next = current; 
current = current->rightchild; 
} 
next->rightchild = $1; 
oe oe 
} 


[EG (o(Me 
identifier {$$ = NULL; } /* really type 
identifier */ 
| identifaer unit decl TOK COLON type 
{ templ=(treenode *)CALLOC (1,sizeof (treenode), "tag") ; 
strcpy (templ->nodename, $1); 
strepy (templ->unitname, $2); 
templ->leftchild = $4; 
/* find out if leftchild is a named type, and 
substitute */ 
/* definition for type name */ 
if (strcmp (templ->leftchild->nodename,"[]")!=0 && 
strcmp (templ—->leftchild->nodename,"*")!=0 && 
strcmp (templ->leftchild->nodename,".")!=0 && 
templ->leftchild->leftchild != NULL && 
templ->leftchild->rightchild == NULL) 
templ1l->leftchild = templ->leftchild->leftchild; 


S$ = templ; 
} 
cases : 
constant_list TOK _COLON TOK OPENPAREN field list 
TOK | CLOSEPAREN cases | fercanlet. 
{current = $4; 
Lf (Current en ii) ay 
while (current->rightchild != NULL) 
CULrreni = Cubrent—>rigntchita, 
CULrrene—-rightchild — se; 
/* put cases trailer at end of field list */ 
oo = $4; 
/* return head of new list */ 
} 
else $$ = $6; 
/* field list is null, so return cases trailer as new Tise 
* 
/ 


} 
Cases eral ee s. 
TOK_SEMICOLON cases 


{S$ = $2;} 

| TOK SEMICOLON 
{$$ = NULL; } 

| {$$ = NULL; } 


procfunction heading : 
TOK_PROCEDURE identifier unit _decl opt_formal_parm_ list 
{ 
TOS++; 


As 


for (i = 0;1 < MAX TABSIZE; i++) 
strcpy (symtab[TOS] [i] .nodename, EMPTY) ; 
tempi=(treenode *)CALLOC (1, sizeof (treenode) , "procedure") ; 
strcepy (temp1->nodename, $2); 
strcpy (templ1->unitname, $3); 
add_sym(tempi, symtab[TOS] ); 
templ->rightchild = $4; /* CONNECTS PROC W/PARMS */ 
add_sym(tempi,paramtab) ; 
} 
| TOK HUNCTION identifier unit _decl opt formal parm list 
ope, return 
{ 
TOS tae 
for (i = 0;i < MAX TABSIZE; itt) 
strcpy (symtab [TOS] [1] .nodename, EMPTY) ; 
templ=(treenode *)CALLOC (1, Sizeof (treenode), "function") ; 
strcpy (templ->nodename, $2); 
strcpy (templ->unitname, $3); 
add_sym(temp1, symtab[TOS] ); 
tempi->rightchild = $4; /* CONNECTS FUNC W/PARMS */ 
tempi->leftchild = $5; 
add_sym(templ,paramtab) ; 
} 


eee crormal parm 1ist : 
TOK_OPENPAREN {temp2 = NULL;} formal parms TOK CLOSEPAREN 
{ $$ = temp2; } 

| { $$ = NULL; } 


formal parms : 
OpEnvaretemiast TOK COLON formal parms trailer 
{ current = $2; 
templ = type lookup ($4); 
while (current != NULL) { 
add_sym(current, symtab[TOS] ); 
if (templ != NULL) 
build _sym(current->nodename, temp1); 
Next = Current, 
current = current->rightchild; 
} 
if (next != NULL) { 
next->rightchild = temp2; 
temp2 = $2; 
} 
$$ = NULL; /* unused */ 
} 
| procfunction heading proc parm trailer 
{ $$ = NULL; /* unused */} 


opt_var ; 
TOK_VAR 
| 


formal parms trailer : 
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identifier proc_parm trailer {$$ = $1;} 
| cas proc_parm trailer {$$ = EMPTY; } 


proc parm travletws 
TOK_SEMICOLON formal parms 
| 
Case: 


opt_packed TOK OPENBRACKET index type Speciuyamee 
TOK CLOSEBRACKET TOK OF sidenttter 


| opt packed TOK OPENBRACKET index typesspecwaece 
TOK CLOSEBRACKET TOK OF identifier cas 


opt_packed : 
TOK_PACKED 
| 


index type  specn ise 
identifier TOK_DOTDOT identifier TOK _COLON identifier 
Ope, recurien 
TOK COLON identat tom 
{ 
templ = type lookup($2); 
if (templ == NULL) { 
templ = (treenode *) 
CALLOC (1, sizeof (Exeenode), “Opt Teturn 
strcpy (temp1->nodename, $2) ; 
} 
S$ = temp1; 


t { $$ = NULL; } 


eype Tdeiser 
identifier unit_decl TOK EQUAL type TOK_SEMICOLON 
{ 
templ=(treenode *)CALLOC (1,sizeof (treenode), "type dclsl"); 
strepy (temp1->nodename, $1); 
strepy (templ->unitname, $2); 
templ->leftchild = $4; 
add _sym(temp1,typetab) ; 
} 
type dcls identifier unit decl TOK EQUAL type TOK SEMICema) 
{ 


templ=(treenode *)CALLOC (1, sizeof (treenode), "type dcis2"); 
strcpy (temp1—->nodename, $2); 
strcpy (temp1->unitname, $3); 
temp1->leftchild = $5; 
add_sym(temp1,typetab) ; 


identifier : 
{ tmp=CALLOC ( (MAXSIZE),1, “identifier") ; 
strnepy (tmp, yytext, MAXSIZE) ; 
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TOK IDENTIFIER 


{$$ = tmp; } 


{ tmp=CALLOC ( (MAXSIZE) ,1, "identifier") ; 
strncpy (tmp, yytext, MAXSIZE) ; 
} 
seandard identifier 
{$$ = tmp; } 


seandard identifier 
TOK BOOLEAN 

| TOK REAL 

| TOK INTEGER 

| TOK CHAR 

| TOK ABS 

| TOK ARCTAN 

| TOK ARGC 

| TOK ARGV 

| TOK_CARD 

| TOK_CHR 

| TOK CLOCK 

| TOK COS 

| TOK DATE 

| TOK DISPOSE 

| TOK EOF 

| TOK EOLN 

| TOK EXP 

| TOK_EXPO 

| TOK FLUSH 

| TOK GET 

| TOK HALT 

| TOK LINELIMIT 

| TOK LN 

| TOK MESSAGE 

| TOK NEW 

| TOK NULL 

TOK ODD 

| TOK ORD 

| TOK PACK 

| TOK PAGE 

| TOK PRED 

| TOK PUT 

| TOK RANDOM 

| TOK READ 

| TOK READLN 

| TOK_REMOVE 

| TOK_ RESET 

TOK REWRITE 

| TOK_ROUND 

| TOK SEED 

| TOK SIN 

| TOK SOR 

| TOK SORT 

| TOK STLIMIT 

| TOK _SUCC 
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TOK _SYSCLOCK 
TOK_TEXT 

TOK TIME 
TOK_TRUNC 

TOK UNDEFINED 
TOK _UNPACK 
TOK WALLCLOCK 
TOK WRITE 

TOK _WRITELN 


Saag cee eee ees eee ees ee oe 


S% 


/*--------------- DECLARATIONS AND FUNCTIONS 9 --------------- */ 
#include <stdio.h> 
#include <ctype.h> 


#include <varargs.h> 
#include <Strincgen- 
#define TRUE 1 
#define FALSE 0 


#define MAXSIZE 80 
#define MAX _TABSIZE 857 
#define EMPTY "\0" 
#ifdef PRINTCALLOC 
#define CALLOC (Length, BLOGs. Location) calloc(Length, 
Elts) ;printf ("calling calloc(%d) in %s\n", Length*Elts, Location) 
#else 
#define CALLOC (Length, Elts, Location) calloc (Length, Elts) 
#endif 
struct tnode 
{ 
short marked; 
char nodename[MAXSIZE]; 
char unitname[MAXSIZE]; 
struct tnode *leftchild; 
Struct tnode: *nightchiia: 
ee 
typedef struct tnode treenode; 
extern hashpjw(); 


extern FILES g2yy Une 
extern char yytext[]; 
extern amie CGS made, 
extern int yylineno; 
extern ehar *ealloaci, 
extern char “strcat (re 


treenode typetab(MAX TABSIZE] ; 
treenode paramtab [MAX TABSIZE]; 
treenode symtab[30] [MAX TABSIZE]; 
treenode *cur parms[MAXSIZE]); 
treenode *deferred[300]; 


int deftop; 
ab eke parmtop; 
Me Os, 

ante ae 


ab ie temptype; 
char eCmp; 
char Ls hq OL 
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char cunie, 
treenode *temp id; 
treenode *templ; 
treenode *temp2; 
treenode *current; 
Ereenode *temp current; 
treenode *next; 
treenode *tempnode; 

sat rhs; 

#ifdef YYDEBUG 

extern int yydebug; 
#endif 

[ ken n nnn nnn PUNCTHONS — —— aa */ 
set_yydebug () 


{ 
# ifdef YYDEBUG 
yydebug = 1; 
4 endif 
} 
my lex () 
{ 
int token; 
again: 
token = yylex(); 
4 ifdef YYDEBUG 
if (yydebug) 
printf ("## td [%d} |%s|\n",yylineno, token, yytext) ; 
2 endif 
if((token == TOK WHITESPACE) || (token == TOK_NEWLINE) || (token 
== TOK UNKNOWN) ) 
goto again; 
if ((token == TOK COMMENT] START)) { 
token = yylex(); 
# ifdef YYDEBUG 
if (yydebug) 
printf ("## %d [%d] |%s|\n",yylineno, token, yytext) ; 
4 endif 
if (token == TOK _AMPERSAND) { 
return (TOK UNIT1); 
} 
while (token != TOK _COMMENT1 END) { 
token = yylex(); 
4 ifdef YYDEBUG 
if (yydebug) 
printf ("## %d [%d] |%s|\n",yylineno, token, yytext) ; 
f endif 
} 
goto again; 
} 
if ((token == TOK _COMMENT2 START)) { 
token = yylex(); 
# ifdef YYDEBUG 
if (yydebug) 
printf ("## %d [%d] |%s|\n",yylineno, token, yytext) ; 
# endif 
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if (token == TOK AMPERSAND) { 
return (TORLUNTEZ I: 


} 
while (token != TOK COMMENT2 END) { 
token = yylex(); 
t ifdef YYDEBUG 
if (yydebug) 
printf ("## %d [%d) |%s|\n", yylineno, token, yytext) ; 
# endif 
} 
goto again; 


} 


5 ifdef TRACE TOKENS 
printf ("%3d:%s\n", token, yytext); 
# endif 


return (token) ; 
} 
int print_node (expr) 
treenode *expr; 
{ 
int ok = TRUE; 
printf ("ss ", expr->nodename) ; 
if (expr->leftchild == NULL && expr->rightchild == NULL) 
printf ("%s\n", expr->unitname) ; 
else if (expr->leftchild != NULL && expr->rightchild == NULL) 
Printé (“ine 
else if (expr->rightchild != NULL && expr->leftchild == NULL) 
DEINE ia nae: 
else if (expr->leftchild != NULL && expr- ues != NULL) 
DEMNEL(EZ\N OE: 
if (ok && expr->leftchild != NULL) 
{ 


} 
if (ok && expr->rightchild != NULL) 
{ 


} 
if (!ok) FetUrnm FALSE: 
else return TRUE; 


= print node (expr->leftchild) ; 


= print_node (expr->rightchild) ; 


} 
void add_sym(entry, table) 
treenode *entry; 
treenode table[]; 
{ 
int i, first_i,done; 
i = hashpjw(entry->nodename) ; 
First 1 ja 
done = 0; 
while (done = 0) { 


if (stremp(table[i].nodename, EMPTY) != 0 ) i = (i + 1)%MAX TABSIZE; 
else done = 1; 

if (i = first_i) done = 1; 

} 
if (strcemp(table[i}).nodename, EMPTY) != 0) 
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fprintf(stderr, "“Warning, Symbol table exceeded\n") ; 
table[i] = *entry; 


char *lookup (name) 
char *name; 
{ 
iii, ), £lrSt 1,done; 
i = hashp jw (name) ; 
a = LOS; 
Best i = i; 
done = FALSE; 
while (done == FALSE) 
{ 


if (strcmp (symtab[j][1i].nodename, name) == 0) 
done = TRUE; 
else 


{ 
i = (i + 1)%MAX TABSIZE; 
if (i == first i) 
ea /* right back where we started in stack */ 
ie (jee) y-eruny OFF bottom of stack */ 
done = TRUE; 
} 
} 


ec) < 0) /* run off bottom of stack */ 
return (EMPTY) ; 
else 
return(symtab[j] [i] .unitname) ; /* return unit associated w/ 


identifier */ 

} 
treenode *type lookup (name) 
ehat ~name; 

{ 

int i, first _i,done-; 

i = hashp jw (name) ; 
first i =i; 

done = FALSE; 

while (done == FALSE) 

{ 


if (stremp(typetab[i].nodename, name) == 0) 
done = TRUE; 
else 


{ 
i = (i + 1) MAX _TABSIZE; 
if (i = first_i) 
done = TRUE; 
} 
} 
if (strcmp (typetab[i].nodename,name) != 0) 
return (NULL) ; 
else 
return (typetab[i].leftchild); 
} 
treenode *parm lookup (proc _func_name) 
char *proc_func_name; 


ai 


{ 
int i, first pedene, 
i = hashpjw(proc_func_name); 
first i =ay 
done = FALSE; 
while (done == FALSE) 
{ 
if (strcmp (paramtab[i].nodename, proc func_name) = 0) 
done = TRUE; 
else 
{ 
i = (i + 1)%MAX TABSIZE; 
Lf (i == slaiesieg) 
done = TRUE; 
} 
} 
if (strcmp (paramtab[i] .nodename, proc func _name) != Q) 
return (NULL) ; 
else 
return (& (paramtab[i])); 
} 


Ine Dui lasymn(stmaneaqd) 
char *str; 
treenode *head; 
{ 
char *headstr; 
Creenodesaremp, 
if ( head = NULL ) { 
#ifdef NULLLEAFPRINT 
printf("Null head on %s\n",str); 
#endif 
return; 


} 
if (head->leftchild == NULL && head->rightchild == NULL) { 
#ifdef NULLLEAFPRINT 
printf("leaf head on %s\n",str); 
#tendif 
return; 
} 
tempnode = (treenode *)CALLOC (1, sizeof (treenode), “buaid (sym); 
while (head != NULL) 
{ 
strcpy (tempnode->nodename, str); 
strcpy (tempnode->unitname, head->unitname) ; 
strcat (tempnode->nodename, head->nodename) ; 
if (strcmp (head->nodename, ".") != Q) 
{ 
tempnode->leftchild = NULL; 
tempnode~>rightchild = NULL; 
add_sym(tempnode, symtab [TOS] ) ; 


} 
build sym(tempnode->nodename, head->leftchild) ; 
head = head->rightchild; 
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void break_link(link) /* caused by linked-list declarations */ 


treenode *link; 
{treenode *trav; 
if (link==NULL) return; 
trav=link; 
while (trav!=NULL) { 
trav->marked = 1; 
if (trav->leftchild != NULL) 
if (trav->leftchild->marked==1) 


{ 
trav->leftchild = NULL; 


} 
elsew break Link (trav—->leftchild) ; 
trav = trav->rightchild; 
} 
} 
void clear mark (link) 
treenode *link; 
{treenode *trav; 
trav = link; 
while (trav '!'= NULL) { 
if (trav->marked == 1) { 


trav->marked = 0; 
ellear Mark (trav—~leftchild); 


} 
trav = trav->rightchild; 


} 
} 
#define yylex mylex 
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ees a 
/* pascalscan.1 x / 
/* vf 
/* Scanner specification for Reacher x / 
fx a) 
le Notes: x/ 
fs Null string is not allowed x/ 
[ees Comments longer than 954 characters explode the scanner x / 
/* -------------------------- -- --- - - - - - - - -- - - - - - - - - - - - - - ay 
%{ 


/* Declarations created by yacc for the tokens */ 
#include “y.tab.h" 

%} 

letter [A-Za-z] 

digit [0-9] 

URGE ES CC is: suum 

Tit siren aunt (TAN TA jue rw) pmtm) 


{letter} ({letter} | {digit} | {underscore})* { return (@heck 10d (yytext are, 
{digit}+"."{digit }+[eE]"“+"{digit}{digit}* { return(TORPUNSTeGNED Saas 
: 


{digit}+"."{digit}+[eE] "—"{digit}{digit})~ {return (TOR UNSICNEEae2 
} 

{digieyt . (aigit}+(eblqeigit) (argues). { 
return (TOK_UNSIGNED_ REAL) ; 

{Giga} tae "{digit}+ _ { return (TOK UNSIGNED REAL); } 
{Giglij+ [eb +} (argue; + { return(TOK UNSIGNED REAL); } 
(Grgit}+ (Chl = (dagiel. { return (TOK_UNSIGNED | REAL) ; } 
{Cigilt} alee | {digits + { return (TOK | UNSIGNED . REAL) ; } 
{digit} + retumm( long UNSIGNED | INTEGER) ; } 


ee 


ef 


return (Tere ~~ COMMENT1 | moUART.) >a} 
return (TOK | ~ COMMENT _END); } 


{ 

{ 

{ 
God { return (TOK | ~ COMMENT2 — _START) ; ’ } 
Way { return(TOK COMMENT2 END); } 
en { return(TOK_AMPERSAND);  } 
nom { return (TOK PERIOD) oY 
wen { return (TOK SEMI COLON) , } 
wy { return(TOK DIVIDE); } 
woo. { return (TOK_DOTDOT) >) 
Le { return(TOK GREATERTHAN) ; } 
en { return (TOK GREATERTHANOREQUALTO); } 
Wen { return (TOK LESSTHAN) , } 
Neo { return (TOK_LESSTHANOREQUALTO) ; } 
Wey { return (TOK _NOTEQUAL) ’ } 
non { return (TOK Gs Ss eat 
" q" { return (TOK_OPENPAREN) , } 
myn { return(TOK_CLOSEPAREN) ; } 
at { return(TOK MULT); } 
wpe { return (TOK_OPENBRACKET); } 
nym { return(TOK_CLOSEBRACKET); } 
myn { return(TOK PLUS); } 
Lee { return(TOK_POINTER); } 
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return (TOK_COLON); } 
return (TOK COMMA); } 
return (TOK EQUAL); } 
return (TOK ASSIGN); } 


moe 
’ 
wt 


atm te te te ten ten te 


fertestring} returm(TOKRSSTRING); } 

{ \t\f£}+ return (TOK WHITESPACE) ; } 

(\n] return (TOK NEWLINE); } 

: return (TOK UNKNOWN); } 

%% 

/* Dee ee a ee Se eee ee ee a aa oe eK * / 


/* 


#include <stdio.h> 
#include <ctype.h> 
#include <varargs.h> 
#define TRUE 1 
#define FALSE 0 


USER SUBROUTINES */ 


[RR KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KK KKK KKK KKK KK KKKKK KKK KKK KKK KKK K 


Data structures for pre-defined identifiers: 


SUFUCE .rSvValy 

struct Sud type | | 
Struct. stageunc | | 
SEYrUCE SEGEPECc||) 


Reserved words 
Standard or predefined types 
Standard functions 
Standard procedures 


KR KKK KK KK KKK KK KK KKK KKK KKK KK KKK KKK KK KKK KK KK KKK KKK KKK KKK KK KKK EK KKKKKKK KK / 


[RKKKKKKKKKK RESERVED WORD Structure KKK KKK KK KKK / 
Seruct { 
char *s; 
int code; 
} rsvd{] = { 
{ "AND", TOK AND }, 
{ "ARRAY", TOK ARRAY }, 
{ "BEGIN", TOK BEGIN }, 
ferCASE, TOK_CASE }, 
fac CONST", TOK CONST }, 
pay, TOK DIV }, 
fe DOr TOK DO: }., 
{ "DOWNTO", TOK DOWNTO }, 
el oS) Le TOK ELSE }, 
{END TOK END }, 
{ "FILE", TOK FILE }, 
BOR’, TOK FOR }, 
{ "FORWARD", TOK FORWARD }, 
{ “FUNCTION", TOK_FUNCTION }, 
{, “COTOUe TOK GOTO }, 
Ba Be Hon lr }, 
Dap TOK IN }, 
{ "LABEL", TOK LABEL }, 
{ "MOD", TOK MOD }, 
{ "NIL", TOK NIL }, 
1 NOL TRRINCTS } , 
(2NORS: TOK OF }, 
{ "OR", TOKEOR hy 
{ "PACKED", TOK PACKED }, 
{ "PROCEDURE", TOK PROCEDURE }, 
{ "PROGRAM", TOK PROGRAM }, 
{ "RECORD", TOK_RECORD }, 
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"REPEAT", TOK REPEAT }, 


{ 
fe Usage! TOK SET }, 
{ "THEN", TOK THEN }, 
{. “SROs HOREG |}, 
{ “TYPEa TOK heme ts Ly 
{ “UNTIL TOK_UNTIL hk, 
{ "VAR", TOK VAR }, 
{ “WHILE"™, TOK_WHILE }, 
{ “WETEE TOK_WITH }, 
{ NULL, 0 } 
ie 
SERUCE { 
char *s; 
Sele code; 
} stdltypel) 
{ "BOOLEAN", TOK_BOOLEAN ky 
{ “INTEGER", TOK_INTEGER ar 
{ "REAL", TOK REAL }, 
{ "STRING", TOK sSmRaiG. \) 7 / /* ISO Standard? wa) 
ae Op TOK_TEXT i 
{ NULL, Oa 
Ne 
{ 
Cham. Ss: 
int code; 
} std tune { 
{ "ABS", TOK_ABS }, 
{7 “SORN™ TOK SOR }, 
(eESORT TOKIOORTs), 
{ PLS iN TOR oa}; 
{ "Ces TOK COS}, 
{ "ARCTAN", TOK ARCTAN }, 
he TOK LN }, 
{ "EXP", TOK EXP }, 
{ #GRUNC TOK TRUNC }, 
{ "ROUND", TOK ROUND }, 
{) “ORD TOK ORD}, 
{ VGHRE TOKECHRe 
{ SSUCE TORROUCE ms), 
{ "PRED", TOK PRED }, 
{=TOD0u, TOK ODD }, 
{ "EOLN", TOK_EOLN }, 
{Sc EOn TOK EOF }, 
{ "ARGC", TOK ARGC }, /* Berkeley Pascal Stan@amd 
Functions */ 
{ "CARD", TOK_CARD }, / 
{ “CLOCK, TOKIGLCeEKs 7 = |e 
{ "EXPO", TOK EXPO }, aia i // 
{ "RANDOM", TOK RANDOM }, /* . */ 
{ "SEEDY TOK_SEED }, 
{ “SYSGCLOCK TORBoYSeLOCK }, 
{ “UNDEFINED", TOK UNDEFINED he 
{ “WALLCLOGK TOK WALLCLOCK }, 
{ NULL, 0 } 
} 


7e 
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struct 


eheck — 


char 
{ 


enar SF 
int code; 
} std proc[] = { 
{OCREAD™, TOK READ }, 
{ "READLN", TOK READLN }, 
{ "WRITE", TOK WRITE }, 
{ "WRITELN", TOK WRITELN }, 
{ "REWRITE", TOK REWRITE }, 
eR oe, TOK RESET }, 
PUL. TOKMEULT ); 
(@'GET", TOK GET }, 
{ "PAGE", TOK PAGE }, 
{ "NEW", TOK NEW }, 
Cb ESPOSE, MOKED ECPOSE |), 
{ "PACK", TOK PACK }, 
{ "“UNPACK", TOK UNPACK }, 
{ "ARGV", TOK ARGV },/*Bkly Pascal Std Procedures */ 
{) “DATE, TOK DATE }, SS east | 
(ee CELUSH, TOK FLUSH }, ara \. = 7 
(gee rirdaie, TOK HALT }, La Ne* / 
i NE eM, TOK INEGMiT }, /* . */ 
{ "MESSAGE", TOK MESSAGE }, 
{7° NULEM TOK NULL }, 
{ “REMOVE", TOK REMOVE }, 
(i oShemMit", TOK STLIMIT }, 
{SETA TOKe GRIME s}) 
{ NULL, OF 
}; 
id(t) 
a a 


register i; 
char =s (256); 
SEGCOVIS ae) 
for “(i=0, s(il; i++) { 
if (islower(s{[i])) 
s{i] = toupper(s[i]); 
} 
/* First see if this is a reserved word */ 
fOr (i=O0-  ssvd[1].S; itt) { 
Pise@ Strep (Ss, rsva(1)].Ss) ) 
return (rsvd[i] .code); 
} 
/* Now see if this is a standard type */ 
for (i=0; std _type[i].s; i++) { 
Piecmicnp(e;mct ctype | 1). Ss) } 
Beano eCmty oe 2], cOde) ; 
} 
/* Now see if this is a standard function */ 
BOY (J-Ofcedcfune (i) acs 2++-) of 
PeGicenenp(s, sta func|il] -s) ) 
return (std func[i] .code); 
} 


/* Now see if this is a standard procedure */ 


D7 


for (i=0; Sta proc( |= a eam 
if ('strenp(s, Std@ipnoci | s)} 
return (Std) pree ii code) ; 


} 
/* Default - plain old identifier */ 
return (TOK_IDENTIFIER) ; 
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/* Pparse.c */ 
#@include “stdio.h" 
# define U(x) x 
# define NLSTATE yyprevious=YYNEWLINE 
# define BEGIN yybgin = yysvec + 1 + 
# define INITIAL 0 
# define YYLERR yysvec 
# define YYSTATE (yyestate-yysvec-1) 
# define YYOPTIM 1 
# define YYLMAX BUFSIZ 
# define output(c) putc(c,yyout) 
F define inp { ) PGhaeechar—vyysptr>yysbu fig * -- 
yysptr) :getc(yyin) )==10? (yylinenot+, yytchar) :yytchar) ==EOF?0:yytchar) 
# Gefine unput(c) f{yytchar= (c);if (yytchar=='\n')yylineno-- 
;*yysptr+t=yytchar; } 
# define yymore() (yymorfg=1) 
# define ECHO fprintf(yyout, "%s",yytext) 
# define REJECT { nstr = yyreject(); goto yyfussy; } 
int yyleng; extern char yytext[]; 
Pniteyymorto; 
@xtern char *yysptr, yysbuf[]; 
mat yytchar; 
Bese *yyin = {stdin}, *yyout = {stdout}; 
extern int yylineno; 
semuet yySvf { 
struct yywork *yystoff; 
struct yysvf *yyother; 
mace *Vystops: |; 
struct yysvf *yyestate; 
extern struct yysvf yysvec([], *yybgin; 
/* Declarations created by yacc for the tokens */ 
#include "y.tab.h" 
7 = ei 7, 
# define YYNEWLINE 10 
yylex () { 
int nstr; extern int yyprevious; 
while ((nstr = yylook()) >= 0) 
yyfussy: switch (nstr) { 
case 0: 
if(yywrap()) return(0); break; 
case 1: 
fe cemurn (check id(yytext)); } 
break; 
case 2: 
{ return(TOK_UNSIGNED REAL); } 
break; 
case 3: 
{ return (TOK UNSIGNED REAL); } 
break; 
case 4; 
{ return (TOK_UNSIGNED REAL); } 
break; 
case 5: 
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break; 
case 6: 


break; 
case 7: 


break; 
case 8: 


break; 
case 9: 


break; 


case 10: 


break; 


case 11: 


break; 


case 12: 


break; 


case 13: 


break; 


case 14: 


break; 


case 15: 


break; 


case 16: 


break; 


case 17: 


break; 


case 18: 


break; 


case 19: 


break; 


case 20: 


break; 


case 21: 


break; 


case 22: 


break; 


case 23: 


{ return(TOK UNSIGNED REAL); } 


{ return(TOK_UNSIGNED REAL); } 


{ return(TOK_ UNSIGNED REAL); } 


{ return (TOK_UNSIGNED REAL); } 


{ return(TOK UNSIGNED INTEGER); } 


{ return(TOK COMMENT1 START); } 


{ return(TOK_ COMMENT END); } 


{ return(TOK COMMENT2 START); } 


{ return(TOK COMMENT2 END); } 


{ return(TOK AMPERSAND);  } 


{ return (TOKIPEEICD): } 


{ return (TOK SEMICOLON); } 


{ return(TOK DIVIDE); } 


{ return(TOK_DOTDOT); } 


{ return(TOK_GREATERTHAN); } 


{ return(TOK GREATERTHANOREQUALTO); } 


{ return(TOK_LESSTHAN); } 


{ return (TOK LESSTHANOREQUALTO); } 


{ return (TOK NOTEQUAL); } 
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break; 


case 24: 


break; 


case 25: 


break; 


case 26: 


break; 


case 27: 


break; 


case 28: 


break; 


case 29: 


break; 


case 30: 


break; 


case 31: 


break; 


case 32: 


break; 


case 33: 


break; 


case 34: 


break; 


case 35: 


break; 


case 36: 


break; 


case 37: 


break; 


case 38: 


break; 


case 39: 


break; 


case -l: 


break; 


default: 

Perintf (yyout,; bad Switch yylook 4a 7@nstr) ; 
} return (0); 
/* end of yylex */ 


{ return (TOK STRING); 


return (TOK MINUS); } 


return (TOK _OPENPAREN) ; 


return (TOK_CLOSEPAREN) ; 


Berurm LOK MULE); } 


return(TOK PEUS); } 


return (TOK POINTER); } 


return (TOK COLON); } 


return (TOK COMMA); } 


return(TOK EQUAL); } 


return (TOK ASSIGN); } 


} 


{euetunmn (TOK WHITESEAEE);  } 


{ return(TOK NEWLINE); } 


{ return (TOK UNKNOWN); } 
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} 


return (TOK_OPENBRACKET) ; 


} 


return (TOK CLOSEBRACKET) ; 


} 


} 


#include <stdio.h> 
#include <ctype.h> 
#include <varargs.h> 
#define TRUE 1 
#define FALSE 0 


/* USER SUBROUTINES */ 


[ERK KKK KKK KK KKK KKK KKK KK KKK KK KKK KK KK KKK KK KKK KKK KKK KKKKKKKKKKKEKKKKK KK KK KKK 


Data structures for pre-defined identifiers: 


SErUCE Esvaild 

SEEUCE SEGRE VP cin 
Struct SeEGwiugea 
SErUCt sStdiproce 


Reserved words 
Standard or predefined types 
Standard functions 
Standard procedures 


KKK KK KK KK HK KK KKK KKK KKK KK KKK KKK KK KKK KKK KKH KK KKK KKK KKK KKK KKK KKK KKKKKKKKKKK / 


[RKKKKKKKKKK RESERVED WORD Structure KK KK KK RK KK / 
SEGUCE { 
char *sS; 
int code; 
} rsva() >= { 
{ "AND", TOK AND }, 
{ "ARRAY", TOK ARRAY }, 
{ "BEGIN", TOK BEGIN }, 
(2° CASED TOK CASE }, 
{ “CONST Ss TOK CONST }, 
re SABENA TOK DIV }, 
(eo DOl TOK DO }, 
{ “DOWNTO", TOK DOWNTO }, 
{TEESE TOK ELSE }, 
faye - TOK END }, 
{ "FILE™ TOKEr EEE}, 
{ “FOR™- TOK FOR }, 
{ "FORWARD", TOK FORWARD }, 
{ "FUNCTION", TOK FUNCTION }, 
{ “Golo = TOK GOTO }, 
hg aos TOK SIE ye 
ee TOKEEN },, 
{ “LABEL", TOK LABEL }, 
{ “Mop TOK MOD }, 
{ “NEES TOK NIL }, 
{eo None TOK NOT }, 
{) “Ont. TOK OF }, 
{torn TOK OR }, 
{ "PACKED", TOK PACKED }, 
{ "PROCEDURE", TOK PROCEDURE }, 
{ "PROGRAM", TOK PROGRAM }, 
{ "RECORD", TOK RECORD }, 
{ "REPEAT", TOK REPEAT }, 
{ "SET", TOK SET }, 
{ "THEN", TOK THEN }, 
fe Wave TOKe TOE 
{ "TYPE", TOK TYPE }, 
 Hlaysygtin ete TOK UNTIL }, 
{ "VAR", TOK VAR }, 
{ "WHILE", TOK WHILE }, 
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Seruct 


Ts 


struct 


Functions */ 


Seruct 


an ee ote 


Cenen Til aun i annen Ti anton Sl tien Toei eee eee eee Tl eee ee ee ee ee ee ee ee ee ee mee Tien antl amen Tl aameen TE ane ante Tt anon, Tt nee Seal 


Pe eaen Tiem antl anton Til anmen Tl eaten Tienes TE omen Tt one Toten cee, Tl ee) 


ean en A te 


=e 


=e 


“WITH, TOK WITH }, 
NULL, On} 
char *s; 
int code; 
std type[{] = { 
“BOOLEAN", TOK BOOLEAN }, 
"INTEGER", TOK_ INTEGER }, 
"REAL", TOK REAL }, 
PS PemnGl Oke oPRING.),77/— /* ISO standard?? */ 
“TEXTS, TOKCTERE ), 
NULL, 0 } 
char *Ss; 
nge code; 
std funct] =4 
SABS". TOK_ABS ie 
"SOR", TOK SOR }, 
NSORT, TOK SORT }, 
"SIN". TOK SIN }, 
NCOs, MORGCOoa 
“ARCTAN", TOK ARCTAN }, 
TaN, TOK LN }, 
"EXP"; TOK EXP }, 
"TRUNC", TOK TRUNC }, 
ROUND? , TOK ROUND }, 
"ORD", TOK ORD }, 
HOISIRH TCReHRe), 
ns) 01 Oigar TOK SUCH, 
"PRED", TOK PRED }, 
ODI way TORROUD ), 
"EOLN", TOK EOLN }, 
CEOR”, TOK EOF }, 
"ARGC", TORTARGC PP" /* Berkeley Pascal Standard 
"CARD", TOK_CARD }, fal * / 
MEISE TORPCEOCK }y yr | / 
LEXeO™; TOK_EXPO }, eae * / 
"RANDOM", RORBRANDOM I), (>. */ 
"SEED", TOK SEED }, 
¥ SY SCLOCIAS, TOK_SYSCLOCK }, 
“UNDEF INED™, TOK UNDEFINED }, 


"WALLCLOCK", 
NULL, 


char *s; 
ali gh 
Sed pEoc| | 
"READ", 
"READLN", 
"WRITE wt ; 
“WRITELN", 


TOK WALLCLOCK }, 
0 } 


code; 

= { 
TOK READ }, 
TOK READLN }, 
TOK WRITE }, 
TOK WRITELN }, 
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"REWRITE", 


TOK REWRITE }, 


{ 
{ "RESET", TOK RESET }, 
{ Seurse TOK PUT }, 
{ e"GET", TOK GET }, 
{ "PAGE", TOK PAGE }, 
{ "NEW", TOK NEW }, 
{ "DISPOSE", TOK DISPOSE }, 
{" “PACK, TOK PACK }, 
{ “UNPACK", TOK _UNPACK }, 
{ "ARGV", TOK ARGV }, /* Berkeley Pascal Standard 
Procedures */ 
{S"DATES. TOK DATE }, /* | */ 
{ “FLUSH"; TOK FLUSH }, ais i 
{ “HALT®: TOK HALT }, /*\ /*/ 
{ “LINELIMET: GRO) GTI SOIL ICES Pe 
{ "MESSAGE", TOK MESSAGE }, 
(oo NUEES TOK NULL }, 
{ "REMOVE", TOK REMOVE }, 
{ "STE, TOK STLIMIT }, 
{ME TOK TIME }, 
{ NULL, 0 } 
le 
check _id(t) 
ena | 2: 
{ 
register i; 
char s[256]; 
strcpy (sya. 
for (i=0; s[i]: i++) { 
if (islower(s[i])) 
Ss{i] = toupper(s[i]); 


} 
/* Pirst see if this is a reserved word */ 
for (1=0>; rsvd[i].s; 2 
if (!strcemp(s,rsvd[alee. 
return (rsvd[i].code) ; 
} 
/* Now see if this is a standard type */ 
for (i=0; std type[i].s; att) { 
if (!stremp(s, std_type[i].s) ) 
return (std _type([i] .code) ; 
} 
/* Now see if this is a standard function */ 
for (1=0;7 stad func(a |S; eae ee 
if ({stremp(s; stdmmine eas) 
Eeturn (std fume ele cece),; 
} 
/* Now see if this is a standard procedure */ 
for (1=0; "std proc|i])-S7 ieee 
if ('stromp(s, std proses) 
return (std_proc([1] .cede); 


} 
/* Default - plain old identifier */ 
return (TOK_IDENTIFIER) ; 


sk UG 


yyvstop[] 


— 
— 


{ 
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O}; 


# define YYTYPE char 


struct yywork { YYTYPE verify, advance; 
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ORO 
Dey ai, 
73, GGL 
23,41, 
DAO 

i De 
23741, 
0340, 
23,41, 
23) Al, 
23,41, 
De cal 
OOF 


DS 6 aL 
DA, ele 
23,41, 


Jee 


~ os 

Fn NODOOON U1 ® 

Ory or > * * @wr * 
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RFPrRrRROOCOOO fF © 


= 
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© 
~ 
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SOR 5) 


th 3,. 19,285, 


dio 


16, 36, 
03a 
23,41, 
DA 
2B) Al - 
23,41, 
Da ae 
aA, 
OF ane O, 
Qe 923: 41; 
23-Ale 
23,41, 
2B Ai, 


0, 
0, 


} yycrank[] 


0,0, 


asi, 


G7 So, 


16, 35, 
£6, 35, 


23,415 
23, 11% 


23,41, 
Dandi, 
23,41, 
23.41, 
23.41), 
23 Ale 


23,41, 
25,41; 
23,41, 
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— 
—=. 


{ 


25), 44, 
3, 41, 
25,41, 
23,41, 
34, 43, 
34, 43, 
0,0, 

36,46, 
36, 46, 
36, 46, 
44,48, 
44,48, 
45,49, 
45,49, 
45,49, 
46, 46, 
46, 46, 
47.50, 
0,0, 

47-52, 
aj02,; 
5Oyo5, 
50,05, 
50755; 
54, 
51,54, 
S2poe, 
52,52, 
5D. G2, 
0,0}; 


struct yysvf yysvec[] 


v g 
Vverankt—i, 


56,45, 


41,292; 


VVeLranks 50), 


yycrank+0, 
yycrank+3, 
yycrank+0, 
yycrank+0O, 


yycrank+-92, 


yycrankt+8, 
yycrank+0, 


yycrank+10, 


yycrank+0O, 
yycrank+0, 
Vy erank+U, 
yycrank+6, 
yycrank+0O, 


yycrank+58, 


yycrankt3, 
yycrank+0O, 
yycrankt+6, 
yycrank+O, 
yycrank+8, 
yycrank+0O, 


yycrank+98, 


23,24, 
23,415 
23,42, 
34,43, 
34, 43, 
34, 43, 


36,46, 
36,46, 
36, 46, 
44,48, 
44,48, 
45,49, 
45,49, 
45,49, 
46,46, 
46, 46, 
0,0, 


Ye ean 
47,52; 
D0, 53, 
50; 53; 
51,54, 
Se oe 
51, 54, 
S22, 
S2y527 
Oe 


g 


0, 


oS 2 ee 
~ = f€UfF 


~ ™ ~= ~ ~ = = ~ = ~ ~= ~= = ~= 


~ 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


a 


23p aly Pie 
23,41; 255.417 
25,41, eo al 
34, 43, 34,43, 
34,43, 34, 43, 
34,43, 36,44, 
0,0, 0,0, 
36,46, 36, 46, 
36, 46, 36, 46, 
44,48, 44,48, 
44,48, 44,48, 
44,48, 44,48, 
45,49, 45,49, 
45,49, 45,49, 
46, 46, 46, 46, 
46, 46, 46, 46, 
46, 46, 46,46, 

AD poodle O70; 

47,52, 47752, 
47/52; ay ue yar 
471,22, 5073) 
S10, Soir SOROS, 
Sl, asi 50,53, 
51,54, 51,54, 
515.54, 51,94, 
51,54; 52792, 
5257520 52792, 
BVA ys 525 52, 

0,0, On, 

oe. 
0, 

yysvectl, G, 
VY¥YVStOptl, 
yyvstopt3, 
yyvstopt6, 
yyvstopts8, 

OF yyvstoptll, 
VY VSEOp io; 
yyvstoptl6, 
yyvstop+19, 
yyvstopt22, 
yyvstoptz5, 
yyvstopt+28, 
yyvstopt31, 
yyvstopt+34, 
yyvstopt37, 
yyvstop+40, 
yyvstopt43, 
yyvstopt+46, 
yyvstopt49, 
yyvstopt52, 
yyvstoptss, 
yyvstopt58, 
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yycrank+0O, 0 

yycrankt0O, 0, ry 
yycrank+0, 0, i ecayet 
0 0 yyvstopt67, 
eo. - yyvstop+7/0, 
Sn alae yyvstopt+73, 
wverank+15, O, a - 
yycrank+0, 0, 

wayeccanktO, O, CS oa 
wyeranktO, 0 ety 
yycrank+173, 0 3. 3 
yycrank+0O, 2 
Sees o.” yyvstopt+sl1, 
yycrank+0O, 0 a 
yycrank+0O, 0, gE aun’ 
yycrank+0O, 0, a see aoey 
yycrank+0O, 0, SS ess" 
es rki0" yvstopt89 
ae 
yycrankt2, yysvec+34, aes: 
yycrank+198, 0 iia ile 
yycrank+208, 0, . 
yycrank+218, 0, 
Mecrank+233, 0, acetal 
yycrank+0, yysvect+44 x 1 
yycranktO, vysvect4s, ie 
yycrank+243, 0 ecu 
yycrank+253, 0, i 
yycrank+263, 0, 
wyecrcanktd), Neer 
5, S re ,  yyvstopt107, 
SeErucct Ork = 

om eee ba 2 yycrank+320; 

char yymatch[{] = i ope oid 

eee, 0l ,01l ,O01 O1 

mies, 011 ,ol2 ,o1 , io, OMe 
OL 011 ,012 ,01 011 ,Ol ,01 , OL 
OL ,01 ,OL 401 ,01 01,01 on 
mel ol ‘ol ie ONS 2501 MC Sek ’ 
Poi ol oo pOL- 70h Ole, 047 ’ 
to! BO! to! a t aa a ‘oe - / 
Oh, tO" (01 1 eer dies 
Or 70) 01, OL, 02, /OL, 402, 01 
a... ae At 9 Ui aC unt ’ 
ie fin ee ee Pay sd Pea a, aoe “ant : 
ee ot es ee ae ; TA! eo art Fd 
aor ee ee ;Ol)-, Ol ee 01 
a wi ai: a rn ,'E! ne unt ’ 
= Pa ; an j ia at tAt Po. “ant ’ 
aa ne eine tte tat ort ’ 
“ AY 01 ,01 “800 cmon ; 
char yyextra[] = { | 
Ort 0, 0, 0, 0; 0,0 

0,0, 0, 0,0, 0,0, 0, 
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}3 
#ifndef lint 
static char ncform_sccsid{] = "@(#)meform 1.6 88/02/7038. Siiniae = 
PEOM SORZ en 2 a7 
#endif 
int yylineno =1; 
# define YYU(x) x 
# define NLSTATE yyprevious=YYNEWLINE 
char yytext [YYLMAX] ; 
struct yysvf *yylstate [YYLMAX), **yylsp, **yyolsp; 
char yysbuf [YYLMAX]; 
char *yysptr = yysbuf; 
ities yy End; 
extern struct yysvf *yyestate; 
int yyprevious = YYNEWLINE; 
yylook () { 
register struct yysvf *yystate, **lsp; 
register struct yywork *yyt; 
Struciwyysvi “yyz- 
int yvehpeyy first. 
Struct yywork *yyr; 
# ifdef LEXDEBUG 
int debug; 
# endif 
char *yylastch; 
/* start off machines */ 
# ifdef LEXDEBUG 


debug = 0; 
# endif 
yyfirst=1; 


at 1 yamoreaG) 
yylastch = yytext; 
else { 
yymorfg=0; 
yylastch = yytexttyyleng; 
} 
sepa 
lsp = yylstate; 
yyestate = yystate = yybgin; 
if (yyprevious==YYNEWLINE) yystatett; 
ote Cet 
# ifdef LEXDEBUG 
if (debug) fprintf (yyout, "state %d\n", yystate-yysvec-—1); 
# endif 
yyt = yystate->yystoff; 
if(yyt == yycrank && !yyfirst){ /* may not be any 
transitions */ 
yyz = yystate->yyother; 
if(yyz == 0)break; 
if (yyz->yystoff == yycrank) break; 
} 





*yylastcht+ = yych = input (); 
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yyfirst=0; 
tryagain: 
# ifdef LEXDEBUG 
if (debug) { 
EpEImeeqyyout, “char ") ; 
allprint (yych) ; 
bucehar ('\nbie 
} 
# endif 
yyr = yyt; 
Vi ( (inet) yee > (int) yyemank) { 
yyt = yyr + yych; 
if (yyt <= yytop && yyt->verifytyysvec 


yystate) { 
if (yyt->advancetyysvec == YYLERR) /* 
error transitions */ 
{unput (*--yylastch) ; break; } 
*lspt+ = yystate = yyt->advancetyysvec; 
GEG Gone n, 
} 
} 
# ifdef YYOPTIM 
else if((int)yyt < (int) yycrank) { ak r < 
Vycrank */ 
yyt = yyr = yycrank+ (yycrank-yyt) ; 
# ifdef LEXDEBUG 
if (debug) fprintf (yyout, "compressed state\n"); 
# endif 
yyt = yyt + yych; 
if(yyt <= yytop && yyt->verifytyysvec 


yystate) { 
if (yyt->advancetyysvec == YYLERR) /* 
error transitions */ 
{unput (*--yylastch) ; break; } 
rEsptt = yystate = yyt->advancetyysvec; 
GOEO CONEIN:? 


} 
yyt = yyr + YYU(yymatch[yych] ); 
# ifdef LEXDEBUG 
if (debug) { 
fprint£ (yyout, “try fall back character "); 
allprint (YYU(yymatch[yych])); 
puLemar ( \n"); 
} 
# endif 


if(yyt <= yytop && yyt->verifytyysvec 
yystate) { 
if (yyt->advancetyysvec == YYLERR) /[* 
error transition */ 
{unput (*--yylastch) ; break; } 
*lsptt+ = yystate = yyt->advancetyysvec; 
GOEO, CONnEmn; 


} 
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if ((yystate = yystate->yyother) && (yyt= yystate- 
>yystoff) != yycrank) { 
# ifdef LEXDEBUG 
if (debug) fprintf (yyout,"fall back to state 
$d\n", yystate-yysvec-l) ; 


# endif 
goto tryagain; 
# endif 
else 
funput (*-—-yylastch) ; break; } 
COnte in: 
# ifdef LEXDEBUG 
if (debug) { | 
fprintf (yyout, "state td char ",yystate-yysvee- 
1); 
aliprint (yycn); 
putchar(' a 
} 
# endif 


e 
Lé 


} 
# ifdef LEXDEBUG 
if (debug) { 
fprintf (yyout, “stopped at td with ",* (1lsp-1)-—yye vec 


1); 
allprint GVvchje 
putchanG) wa); 
} 
# endif 
while (lsp-- > yylstate) { 
*yylastch-- = 0; 
if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 
0) { 
yyolsp = 1sp; 
if (yyextra [*yyfnd] ) { /* must backup */ 
while (yyback( (*lsp) ->yystops, -*yyfnd) !=1 
&& lsp > yylstate) { 
1 Sp ==; 
Unpimeayy lasten——) ; 
} 


} 
yyprevious = YYU(*yylastch) ; 
yylsp = 1sp; 
yyleng = yylastch-yytexttl; 
yytext[yyleng] = 0; 
# ifdef LEXDEBUG 
if (debug) { 
foLiner (yyoul,  \nmctkeh )- 
sprint (yytext) ; 
Lorimer (yyout,” action td\nuyayyong), 
} 


# endif 
FeEUrN (~yyEnati)), 
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(eligyenbye (oy AV Ake Fopered 0) 
} 

if (yytext{0]) == 0 /* && feof(yyin) */) 
{ 


yysptr=yysbuf; 
return (0); 
} 
yyprevious = yytext[0}] = input(); 
if (yyprevious>0) 
output (yyprevious) ; 
yylastch=yytext; 
# ifdef LEXDEBUG 
if (debug) putchar('\n'); 
# endif 
} 
} 
yyback(p, m) 
it. ~py 


{ 
ia p—O) return(0)-; 
while (*p) 
{ 
if (*p++ == m) 
return (1); 
} 
return (0); 
} 
/* the following are only used in the lex library */ 
yyinput () { 
LeewEncinput ()) ; 


yyoutput (c) 
ait C; { 
Out pute): 
} 
yyunput (c) 
mt Cc; { 
unpue (Cc); 


} 


a3 


#include <Stdaio. hn 


#define END_OF FP1 0 
#define BEGIN EXPN 1 
#define NORMAL 2 
#define INSERT _NODE 3 
#define END EXPN 4 
#define FUNNY = 
#define MAXSIZE 80 
#define MAXLINE 255 
#define MAXFILE 80 
#define TRUE 1 
#define FALSE 0 
#define EMPTY "\0" 


APPENDIX B 


UNITCHECK PROCEDURE 


#include <string.h> 


struct tnode 
{ 
char nodename [MAXSIZE] ; 
char unitname[MAXSIZE] ; 
struct tnode *leftchild; 
SELUCE Enode) *righteirra, 
V3 


typedef struct tnode treenode; 
struct treelist 
{ 
tCreenode *tree; 
struct treelist *next; 
ie 
typedef struct treelist tlist; 
int read _exp(/*FILE *fp, treenode *expn */); 
tlist *load Vist (/~ 2 Grr Ste Zeer 
Ini ne anol 
char start ine) 4a), 
main (argc, argv) 
su ghe, suee(os 
char *argv[]; 


char in_file[MAXFILE], 
out file[MAXFILE] ; 

int read status; 

treenode *exp; 

Elist “root. 

FIER + ipl, ip2. 

Li (arge <53) 

{ 
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printf("usage: %s <input filename> <output filename>\n", argv[0]); 
exit (1); 

} 

ememcpy (in file, argv(1]); 

strcpy (out _file,argv[2]); 

meme = fOpen({in file,"r™); 

fpZ = fopen(out file,"r"); 

" RQtepi I ClEp2) ) 


prince ("ts: couldn't open files\n", arov([0]); 
Sx t (1); 
} 
line no = 0; 
root = load list(fp2); 
line_no = 0; 
#ifdef PRINTREAD 
printf ("Below is the exp being compared to each exp in linklist\n\n"); 
#endif 
while (!feof(fp1) ) 
{ 
read status = read exp(fpl, &exp); 
ewitch (readustatus) { 
case END OF FP1 
case BEGIN EXPN 
case NORMAL : 
case INSERT NODE : 
break; 
case END EXPN 
match (root, exp); 
break; 
case FUNNY : 
printf ("main(): Something is funny.\n"); 
break; 
} /* end switch() */ 
} /* end while() */ 
fclose (fpl1); 
fclose (fp2); 


iiesread exp(fpl, expn) 

FILE *fpl; 

treenode **expn; 

{ 

char line [MAXLINE] ; 
char operator [MAXSIZE] ; 
char operand [MAXSIZE] ; 
char unit [MAXSIZE]; 
int temp, 

numb _arguments; 

Pace mOde | SOPmseLUCL; 
PReehnOde” => Opnd | SeELuce, 


if (fgets(line, MAXLINE, fpl) == NULL) 
{ 


Becturma (ENDSOr Pl); 


1s 


} 
else { 
line nott; 
if (line[0) = '{') 
{ 
#ifdef PRINTREAD 
printf(" Begin expression\n{\n"); 
#endif 
strcpy (start line, line) ; 
return (BEGIN EXPN) ; 
} 
else if (line[0) == '}') 


{ 
#ifdef PRINTREAD 

printf("}\n End expression\n") ; 
#endif 

return (END_EXPN) ; 


else if (sscanf (line,"ts 2d", operator, «numb ar quneaE aaa! 
{ 
#ifdef PRINTREAD 
printf ("Node = °“%s' arg = %d\n", operator,numb arguments) ; 
#endif 
op struct = (treenode *) calloc (1, Sizeof (treenede)) 
strcpy (op_struct->nodename, operator) ; 
Strepy (op Struct—>uniename, 0m), 
if (numb arguments > 0) temp = read exp(fpl, &(op struct->leftchild)); 
if (numb_arguments > 1) temp = read exp(fpl, s(op state. 
Pri gneehni la) 
*Cxpne =" Ope sere, 
return (INSERT NODE) ; 
} 


else if (sscanf(line,"%s %s", operand, unit) == 2) 


{ 
#ifdef PRINTREAD 
printf ("Node = %s, Unit = %s\n", operand, unit); 
#endif 
Opnd struct = (treencde *~)callocw( Wo rzcen (Prcencoe aT, 
strcpy (opnd_struct->nodename, operand); 
strcpy (opnd_struct->unitname, unit); 
*expn = opnd struct; 
return (INSERT NODE) ; 
} 


else if (sscanf(line,"%s", operand, unit) = 1) 


{ 
#ifdef PRINTREAD 
printf ("Node = %s, Unit = unitless\n", operand) ; 
#endif 
opnd_struct*=" (treenode *)calloc (1, sizeof (Creemmie))- 
strcpy (opnd_struct->nodename, operand); 
Strcpy (opnd_struct—->unitname, EMPTY); 
Zexpne=—epnd Struct; 
return (INSERT NODE) ; 
} 
else {*expn = NULL; 
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return (FUNNY); 
} 
} 
} 
ies ~lOad list (fp2) 
Bike, *fp2; 
{ 
int okay = TRUE, 
temp; 
ismeenode “ass stmt; 
tlist *linked tree = NULL; 
tlist *tlist_head = NULL; 
Poe o>2 —— NULL) 


{ 
#ifdef TRACECALLS 

einer ("load list ():"called with no fp2\n"); 
#endif 

exit (1); 


} 
while (okay) 
{ 
temp = read exp(fipz, &ass stmt); 
switch (temp) 
{ 
case END EXPN : 
if (linked tree) 
{ 
lhimkedmeree=-next — (tlist*)calloetl, sizeof (Elist)); 
iikedeuree = lanked tCree—>next; 
Pithvee@ereea Lee — ass Stmt, 
#ifdef PRINTREAD 
Prine Above 1S the next link of tlist.\n\n"); 
#endif 
} 
else 
{ 
Gilsemncaa — (tlist*)callloc(1, sizeof (list) )\m 
linkeemence — -list head; 
linked tree->tree = ass_stmt; 
#ifdef PRINTREAD 
printf ("Above is the head of tlist\n\n"); 
#endif 
} 
break; 
Gace FUNNI :; 
Peinet Qikeag lish (): “invalid input..\n") ; 
exit (1); 
break; 
case END_OF FPl 
#ifdef PRINTREAD 
Printt GQUEOF ptr reached in fp2\n\n")> 
#endif 
Okay = FALSE; 
break; 
default 


T/1 


break; 
} /* end switch */ 
} 
return tlist_head; 
} 
VOrd) DEI ntmexpi Oot } 
treenode *root; 


if (root==NULL) printf ("NULL\n") ; 

printf ("%s %s", root->nodename, root—>unitname) ; 

if (root->leftchild == NULL && root->rightchild==NULL) 
jopableghene (ya ety 5 

else if (root->rightchild == NULL) printf(" 1\n"); 

else if (root->leftchild == NULL) printf(" 1\n"); 

else printit( Zin: 

if (root->leftchild!=NULL) print_exp(root—>leftchita); 

if (root->rightchild!=NULL) print exp(root—>rightcamla) ; 

} 


Int, matehn(ecurrent last; Vexpressiom) 
Gl Se Scuerenin asi, 
treenode *expression; 
{ 
int found = FALSE; 
int okay; 
int compare exp( /* expl, exp2 */ ); 
int fast_comparel( /*expression*/ ); 
int fast _compare2( /*expression*/ ); 
#ifdef TRACECALLS 
printf ("match(): called from main\n"); 
#endif 
#ifdef PRINTMATCH 
printf ("Tlist=head, do the compare\n"); 
#endif 
if (okay = fast_comparel (expression) ) 


printf ("expression is assign of var to var or unsigned lit\n"); 
return (okay); 
} 
if (okay = fast_compare2 (expression) ) 
{ 
#ifdef PRINTOKAY 
printf ("okay is d\n", okay); 
#endif 
printf ("expression has no units\n"); 
ECLUr ae TRUE) > 
} 


if (okay = fast_compare3 (expression) ) 


{ 
#ifdef PRINTOKAY 
printf ("okay is d\n", okay); 
#endif 
printf ("expression has consistant units\n"); 
return (TRUE): 
} 
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while (!found && current list != NULL) 


{ 
#ifdef TRACECALLS 
printf ("compare exp: called from match\n"); 
#endif 
#ifdef PRINTMATCH 
printf ("Comparing %d with %d\n",current list->tree, expression); 
#endif 
found = compare exp(current list->tree, expression); 
if (found) 
{ 
printf ("valid units in expression\n"); 
meturn (found) ; 
} 
else 
{ 
current list = current_list->next; 
#ifdef PRINTMATCH 
printf("list != NULL check exp at next link\n"); 
#endif 
} 


printf ("invalid units in expression"); 
#ifdef PRINTPARSE 

printf(" ending at parsefile line %d\n",line no); 
#else 

mimeentt ("\n"); 

#endif 

pmimtt (“ts",start line) ; 

Piemt exp (expression) ; 

pieent tr ("}\n™"); 

return (found); 

} 

int compare _exp(expl, exp2) 
treenode *expl1; 
treenode *exp2; 

{ 

int okay = TRUE; 

if (expl->leftchild != NULL && exp2->leftchild != NULL) 


{ 
#ifdef PRINTMATCH 
printf ("Comparing op (%s) with op (%s)\n",expl->nodename, exp2- 
>nodename) ; 
#endif 
if (strcmp (expl->nodename, exp2->nodename) == 0) 
okay = compare exp (expl—>leftchild, exp2->leftchild) ; 
else return(FALSE); /* operators don't match */ 
} 
else if (expl->leftchild != NULL || exp2->leftchild != NULL) 
return(FALSE); /* different structures, so no match */ 
if (okay && expl->rightchild != NULL && exp2->rightchild != NULL) 
{ 
okay = compare exp (expl->rightchild, exp2->rightchild) ; 
} 
else if (expl->rightchild != NULL || exp2->rightchild != NULL) 


ae 


return(FALSE); /* different structures, so no match */ 
if (!okay) return FALSE; /* save the fact that the children didn't 
Natehe 7 
if (expl->leftchild == NULL && expl->rightchild == NULL ¢&& 
exp2->leftchild == NULL && exp2->rightchild == NULL) { 
#ifdef PRINTMATCH 
printf ("Comparing (%s,%s) with (%s,%s)\n",expl1->nodename,expl- 
>unitname, 
exp2->nodename, exp2->unitname) ; 
#endif 
if (strlen(expl->unitname)>0 || strlen(exp2->unitname) >0) 
return (strcmp (expl->unitname, exp2->unitname) == 0Q); 
else 
if (strcmp (expl->nodename, exp2->nodename) == Q) return (TRUE); 
else return (FALSE) ; 


return (okay); 
} 
int fast _comparel (expression) 
treenode *expression; 
{ 
if (strcmp (expression->leftchild->unitname, 
expression->rightchild->unitname) = 0 && 
expressSion->rightchild->rightchild == NULL && 
expression->rightchild->leftchild == NULL) 
return (TRUE); 
else if (strcmp (expression->rightchild->nodename, 
"@@unsigned_1lit")==0) 
return (TRUE); 
else return (FALSE); 
} 
int fast_compare2 (expression) 
treenode *expression; , 
{int result; 
#ifdef PRINTCALLS 
printf ("fast_compare2 called with %s as node and %s as unit\n", 
expression->nodename, expression->unitname) ; 
#endif 
if (strcmp (expression->unitname, EMPTY) !=0) 


return (FALSE) ; 
} 
else { 
result = TRUE; 
if (expression->leftchild != NULL) 
result = fast _compare2 (expression->leftchild), 
if (result && expression->rightchild != NULL) 
result = fast_compare2 (expression->rightchild) ; 
return (result); 
} 
} 
int fast_compare3 (expression) 
treenode *expression; 
{ 


if (strcemp (expression->nodename, ":=")==0 && 
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expression->leftchild != NULL && 
strcmp (expression->leftchild->unitname, EMPTY) !=0) { 
#ifdef PRINTCALLS 
printf("Calling traverse with %s\n",expression->leftchild- 
>unitname) ; 
#endif 
return(traverse (expression->rightchild, expression->leftchild- 
>unitname) ); 
} 
else return(FALSE); 
} 
int traverse(root, unit) 
treenode *root; 
Ghar *unit; 
{int result = TRUE; 
#define UNSIGNED "@@unsigned_lit" 
if (root == NULL) return (TRUE); 
#ifdef PRINTCALLS 
printf ("traverse ((%s, s) ,%s) \n", root->nodename, root->unitname, unit) ; 
#endif 
if (strcmp (root->nodename, "+")==0 || strcmp (root->nodename, '-")==0) { 
if (root->leftchild != NULL) 
if (strcmp (root->leftchild->nodename, UNSIGNED)==0) result=TRUE; 
else result = traverse (root->leftchild, unit); 
if (result && root->rightchild != NULL) 
if (stroamp (root->rightchild->nodename, UNSIGNED) ==0) result=TRUE; 
else result = traverse (root->rightchild, unit); 
return(result); 


else if (strcmp (root->nodename, "*")==0) { 
if (root->leftchild '= NULL) 
if (strcmp (root->leftchild->nodename, UNSIGNED) ==0) 
Ti Meeot—-rightehild !'= NULL) 
return (traverse (root->rightchild, unit) ); 
else return(FALSE); /* unary * not allowed */ 
else if (root->rightchild != NULL) 
if (strcmp (root->rightchild->nodename, UNSIGNED) ==0) 
return (traverse (root->leftchild, unit) ); 
else return(FALSE); /* multiplcation by non unsigned lit */ 
else return(FALSE); /* unary * not allowed */ 
else return(FALSE); /* unary or leaf * not allowed */ 


else if (strcmp (root->nodename,"/")==0) { 
if (root->leftchild != NULL) 

if (root->rightchild != NULL) 

if (strcmp (root->rightchild->nodename, UNSIGNED) ==0) 
return (traverse (root->leftchild, unit) ); 
else return (FALSE); /* division by non unsigned lit */ 
else return (FALSE); /* unary / not allowed */ 
else return (FALSE); /* unary or leaf / not allowed */ 


else if (strcmp (root->unitname, unit) !=0) return (FALSE) ; 


else return(TRUE); 
} 
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APPENDIX C 


SAMPLE PAGE FROM RULEBASE 


{E257 
:= 2 

Intermediate kilometersseconds 
x 2 

/ ez 

SquadLoc[].Endur newtons 
Army[][].Endurance[] newtons 
Army[][].VO[] kilometersseconds 


} 

{ 1358 

:= 2 

Al perkilometers 

EZ 

Oe: 

@@unsigned lit 

ee 

Params.XDelta kilometers 
Params.YDelta kilometers 
+ 2 

- 2 

- 2 

Terrain[] kilometers 
Terrain[] kilometers 
Terrain[] kilometers 
Terrain[] kilometers 

} 

{as 37 

:= 2 


Z 

Z 

@@unsigned lit 
Params.XDelta kilometers 
- 2 

ce 

N 

- 2 

Terrain[] kilometers 
Terrain[] kilometers 
gh VE 

+ 2 

N 

@@unsigned lit 

- 2 

Terrain[] kilometers 
Terrain[] kilometers 


} 


n2 
* 
/ 
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APPENDIX D 


SAMPLE PAGE FROM OUTPUT 


(570 
= 9 


Arg 

yo 2 

Pos.X kilometers 
Params.XDelta kilometers 
} 

eo? 1 

:= 2 

Arg 

2 

Pos.Y kilometers 
Params.YDelta kilometers 
} 

{ 447 

:= 2 

Effect 

2 
- 2 

Army {] [] .MaxSlope 
on 2 


- 2 

Alt kilometers 

Alt kilometers 
MoveDist kilometers 
Army [] {] .MaxSlope 


} 

{ 500 
:= 2 

Arg 

io 2 

Pos.X kilometers 
Params.XDelta kilometers 


} 

501 

:= 2 

Arg 

eZ 

Pos.Y kilometers 
Params.YDelta kilometers 


} 
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